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Avant-propos 


Nous avons conçu ce livre pour qu'il soit le premier compagnon de route de 
nombreux apprentis-programmeurs (jeunes ou moins jeunes...). Dans ce but, 
nous nous sommes limités à un langage très simple et nous ne supposons 
aucune connaissance préalable de quelque sorte que ce soit. 


Partant du principe que la programmation ne peut s'’apprendre que par la prati- 
que, nous avons adopté une pédagogie active associée à une démarche très 
progressive. Chaque notion est présentée sur un exemple simple qui peut être 
immédiatement essayé sur votre micro-ordinateur. Mais, en outre, vous êtes 
invité à expérimenter des situations très variées repérées par le titre «Faites-vous 
la main». C'est de la pratique de ces exercices (on pourrait presque dire de ces 
«gammes ») que dépend votre réussite. Ne les négligez donc surtout pas! 


Très souvent, le débutant se trouve arrêté par un comportement imprévu de 
l'ordinateur. C'est pour cette raison que, dès le début, nous vous familiarisons 
avec les erreurs qu'il est possible de commettre. Nous vous montrons à la fois 
comment elles se manifestent et comment y remédier. En procédant ainsi, la 
situation d'erreur perdra son aspect «bloquant ». 


A la fin des premiers chapitres, vous trouverez des exercices qui vous incitent 
à appliquer les notions fraîchement acquises. Ne cédez pas trop vite à la tenta- 
tion de «pianoter» sur votre micro. Prenez le temps nécessaire à la réflexion, 
source certaine de progrès. 


Ce livre est utilisable aussi bien avec l'Amstrad CPC464 (unité centrale + cas- 
sette Intégrée) qu'avec l'Amstrad CPC664 (unité centrale + disquette intégrée). 
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l. Quand Basic 
vous obéit 
immédiatement 


Contact ! 


Lorsque vous allumez votre Amstrad, vous voyez apparaître à l'écran quelque 
chose comme ceci: 







Basic décline son identité 


ns 
“Je sus PRET à vale à 
POUT VOUS ». 


On m'appelle le «curseur». 
Je vous précède. 


Le mot « Ready » (mot anglais signifiant «prêt» vous montre que Basic attend 
que vous lui fournissiez des instructions. C'est ce que vous allez faire en utilisant 
le clavier. 





Amstrad 64K Microcomputer (V1) 


@ 1984 Amstrad Consumer Electronics plc 
and Locomotive Software Ltd. 
















BASIC 1.0 
Ready 
O 












Le carré clignotant, qu'on appelle «curseur» vous montre où va s'afficher ce 
que vous allez taper. 


Première instruction 


Pour commencer, nous vous proposons de taper: 


PRINT 5 


Pour cela, vous frappez successivement sur les touches marquées P,R, I, N, 
T puis sur la barre d'espace puis sur 5. (Vous pouvez écrire aussi bien en majus- 


cules qu'en minuscules.) À chaque fois, le curseur se déplace sur la position 
suivante. 


Mais, direz-vous, rien ne se passe ! Cela est normal, car il vous faut maintenant 
dire à Basic que vous avez fini de taper votre intruction. Pour cela, vous appuyez 
sur la touche: 


ENTER 


Basic exécute alors ce que vous lui avez demandé. Vous voyez apparaître à 
l'écran, à la suite de ce qu'il y avait déjà (que nous n'avons pas reproduit ici) : 








PRINT 5 





Je suis toujours là. 


Pour que ce que vous tapez se distingue de ce que vous affiche Basic en 
réponse, nous l'avons souligné. Naturellement, sur votre écran, il n’y aura pas 
de différence. 


PRINT est un mot connu de Basic. Il signifie Ecrire. lci, vous lui avez donc 
demandé d'écrire 5. C'est ce qu'il a fait immédiatement sur la ligne suivante. 


I vous signale ensuite qu'il est à nouveau prêt à recevoir une instruction en écri- 
vant Ready. 


En cas d’erreur 


Que va:t-il se passer si vous faites une erreur en tapant votre instruction ? 


Si vous ne vous apercevez pas de votre faute avant d'avoir tapé «ENTER», il 
est probable que Basic ne comprendra pas ce que vous lui demandez. Par 
exemple, si vous faites une faute d'orthographe en tapant le mot PRINT, voici 
ce qui se passera: 


Le mot PRINT est mal 
orthographié. 
Je ne comprends pas. 


De nouveau à votre service. 

















La réponse « Syntax error » que vous obtenez signifie «erreur de syntaxe ». Autre- 
ment dit, Basic vous dit que quelque chose est mal orthographié et qu'il ne peut 
pas exécuter ce que vous lui demandez. Cela ne l'empêche pas d'attendre une 
nouvelle instruction en vous affichant Ready. 


(D) Faites-vous la main 


* Tapez les instructions suivantes, sans chercher à corriger celles qui comportent une erreur. 
Essayez de prévoir la réponse que vous fournira Basic dès que vous appuyerez sur ENTER. 


PRIMT 25 
PRINT 1995 
ECRIS 35 
PRINT — 8 
BONJOUR 
POURQUOI 


Lorsque vous pouvez corriger votre erreur 


Et si vous découvrez votre erreur avant d'avoir tapé RETURN! 


Dans ce cas, rassurez-vous, il vous est facile de la corriger. || vous suffit de revenir 
«en arrière» en appuyant sur la touche marquée : 


DEL 











N'EFFACEZ P 
NON! Da 
NO 






Ze) 





À chaque fois que vous pressez cette touche, le curseur recule d'une position 
et le dernier caractère est effacé. Il vous suffit ensuite de taper les bonnes tou- 
ches pour obtenir l'instruction correcte. 


(D) Faites-vous la main 


e Commencez de taper: PRIT. Revenez en arrière et corrigez de facon à obtenir PRINT 8. Tapez 
ENTER pour faire exécuter. 


e Commencez de taper: PRNT 834 puis revenez en arrière autant de fois que nécessaire pour 
pouvoir corriger et obtenir PRINT 834. 


e Entrainez-vous à corrigier ainsi n'importe quelle faute de votre choix, jusqu'à ce que cela vous 
paraisse tout à fait naturel. 


Un peu de calcul 


Vous pouvez demander à Basic de vous fournir le résultat d'une opération. Voici 
des exemples d'additions et de soustractions. 






PRINT 12 + 9 
21 
Ready 
PRINT 12 -9 
3 
Ready 













Ecrire la valeur de 12 + 9. 


£ Ecrire la valeur de 12 - 9. ; 

















La multiplication et la division sont tout aussi faciles à employer. Il suffit de savoir 
que: 


e la multiplication se note * 
e la division se note / 


En voici des exemples : 







PRINT 12 + 9 = 
108 
Ready 





Ecrire la valeur de 12 x 9. 


> 


_ÉCEe la valeur de 108 : 12. 


2 AS rca: En 
# Tiens, ça tombe juste 1? 
{  etsinon. __-" 










PRINT 108412 


Rs 


Ready Do. 





(à) Faites-vous la main 


e Essayez ces instructions : 
PRINT 100 + 12 


PRINT 25 + 182 
PRINT 750/25 


e Vous pouvez grouper plusieurs opérations ; essayez : 
PRINT 5 + 3 + 2 
PRINT 12 + 8 - 10 
PRINT 8 + 8 : 10 
PRINT 9 * 8/3 


e Essayez des instructions de votre choix. 


Notre première variable 
Si vous tapez l'instruction: Ÿ 
A=5 (sans oublier ENTER) 


vous obtenez: 


Apparemment Basic n'a rien fait. Cependant, votre instruction ne lui a pas déplu 
puisqu'il n'a pas écrit de «message d'erreur». Le mot «Ready» montre qu'il est 
prêt à exécuter une nouvelle instruction. 


Basic n'a-t-il vraiment rien fait? Proposons-lui l'instruction: PRINT A. 


A=5 
Ready 


PRINT A 
5 
Ready 





Voyons de près ce qui s'est passé depuis le début (A = 5). 


* L'instruction : 
A=5 
signifie : 


e Choisir un emplacement de la 
mémoire et lui donner le nom A. 


e Ÿ ranger la valeur 5 


* L'instruction : 


PRINT À 





signifie : écrire quelle est la valeur contenue dans A. 
En jargon informatique, on dit que À est une VARIABLE. 


On dit aussi que À = 5 est une instruction «d'affectation»: elle «affecte » à la 
variable A la valeur 5. 


Et quand la variable change de valeur 
Que va faire Basic si nous lui demandons d'exécuter l'instruction: 
A=8 


Cette fois l'emplacement A existe 
déjà. Vous demandez à Basic d'y 
placer la valeur 8. C'est bien ce qu'il 
va faire, en détruisant du même 
coup la valeur 5 qui s'y trouvait 
auparavant. 





Pour vous en convaincre, il vous suffit de demander à Basic de vous écrire la 
valeur contenue dans A par: 


PRINT A 


Pour nous résumer, voici ce qui doit apparaître sur votre écran: 










A=5 
Ready 
PRINT A 
5 

Ready 
A=8 
Ready 
PRINT À 
8 
Ready 


Donner à À la valeur 5. 


Ecrire la valeur A. 


Donner à À la valeur 8. 


Ecrire la valeur de À. 
























Voici un autre exemple qui vous montre d’autres façons d'utiliser une variable. 
Cette fois, pour alléger un peu notre texte, nous avons supprimé les mots 
«Ready» qui apparaissent après l'exécution de chaque instruction. 











Ajouter la valeur de À et 80 et 


écrire le résultat. 










A = 120 
PRINT À 
120 
PRINT À 

200 
PRINT À 
120 
PRINT A +0 
240 
PRINT À 










La valeur de À n'a pas 
changé. Ouf! 












Ecrire ce que l'on obtient en 
multipliant la valeur de À par 2. 


——_—— 
























La valeur de À n'a toujours 
pas changé. 











RS Re 


Cette fois, la valeur de À a 
changé, mais nous l'avons 
bien voulu... 


(?) Faites-vous la main 


Exécutez successivement ces instructions : 


A=12 
PRINT À + À 
PRINT 2 * A 
PRINT A : À 
PRINT A/A 
PRINT À - À 
PRINT A * 12 
PRINT À 
A=15 
PRINT A * 12 
PRINT A * À 
PRINT À 


Avec plusieurs variables 


Un premier exemple : 






Ecrire la valeur de la somme 





des valeurs contenues dans À 
et B. 





PRINT A + Be 


8 
A=10 


ges ee 
PRINT À + B se. oui! maintenant A anteït,} 


PR EE 
13 
B=5 


PRINT À + B 
15 



























Et maintenant B contient 5, 
tandis que À contient toujours 
10. 









Et un second: 











Faire la somme des valeurs 
de À et B et ranger le résultat 


dans C. 
TT ___<— 









Ecrire la valeur de C 


Modifier la valeur de A 












8 A 
PRINT À + B — 


13 











La valeur de C n'a pas changé. 


æ) Faites-vous la main 


dy Exécutez successivement les instructions suivantes : 


A=9 
B = 18 
S=A+B 
PRINT S 
D=B-A 
PRINT D 
D=A-B 
PRINT D 
P=A:B 
PRINT P 
Q = B/A 
PRINT Q 


Quand une variable n’a pas de valeur 


Que vat-il se passer si vous utilisez une variable à laquelle vous n'avez jamais 
attribué de valeur ? 


Pour le savoir, demandez à Basic de vous dire ce que contient F (nous n'avons 
jamais utilisé ce nom jusqu'ici). 


F! connais pas. 
Tant pis! je prends 


un nouvel emplace- 
ment, je lui colle 
l'étiquette F et j'y 
range la valeur 0. 





Rassurez-vous! Le zéro que vous obtenez n'est pas une (mauvaise) note que 
vous décerne Basic. |! s'agit tout simplement de la valeur de F. 


(?) Faites-vous la main 
* Essayez de prévoir le résultat de ces instructions. Vérifiez-le ensuite en les exécutant. 


A = 20 

PRINT À + Y 
PRINT Y : Y 
PRINT A * X 


SE 
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Pour effacer l’écran 





Il est probable que vous avez déjà éprouvé l'envie d'effacer l'écran, peut-être 
pour faire disparaître quelques sottises accompagnées de «Syntax error ». 


Bien sûr, vous pouvez toujours y parvenir en «éteignant» votre ordinateur et en 
le rallumant (après avoir attendu quelques secondes). Mais vous obtenez alors 
à nouveau les lignes de présentation de Basic. D'autre part, tout a alors disparu, 
en particulier les variables et leurs valeurs. 


Une solution plus douce consiste à faire exécuter l'instruction d'effacement 
d'écran: 


CLS 


Essayez cette instruction et notez que le mot Ready réapparaît en haut de 
l'écran. 


Ilesttrès important de savoir que cette instruction se contente uniquement d'effa- 
cer l'écran. Elle ne modifie rien de ce que Basic a pu mettre en mémoire. 


En particulier, les valeur des variables ne sont pas atteintes. 
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() Faites-vous la main 


e Exécutez ces instructions 
A=15 


B = 20 
e Effacez l'écran. 


e Examinez le contenu des variables A et B en exécutant: 
PRINT A 
PRINT B 


Des noms de variables plus parlants ! Oui, mais... 


Jusqu'ici, nous avons choisi des noms de variables formés d'une seule lettre : 
A, C, X, Y, etc. 


En fait, Basic vous permet d'utiliser des noms comportant plusieurs lettres ; les 
chiffres sont même autorisés à condition de ne pas apparaître au début du nom. 
Essayez: 









Donnez la valeur 250 à la 
variable PRIX. 


PRIX = 250 
PRINT PRIX 





Donnez la valeur 25 à la 
variable X1. 










PRINT X1 
25 


Bien pratique, direz-vous! Nous pouvons donc choisir des noms de variables 
adaptés à ce qu'elles représentent, par exemple : MONTANT, POSITION, AGE, 
etc. 
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Toutefois, essayez: 


NOT = 16 
Syntax error 
FOR = 20 


Syntax error 
TEST = 25 


Syntax error 





Les noms NOT, FOR et TEST semblent ne pas convenir à Basic. Pourquoi ? Il 
existe en fait un certain nombre de mots qui possèdent une signification précise 
pour Basic. On les appelle «mots-clés ». Pour l'instant, nous n'en avons rencon- 
tré qu'un seul : PRINT. Mais il en existe beaucoup d'autres : INPUT, FOR, NEXT, 
NOT, ON, OR, TEST, etc. Et Basic n'accepte pas qu'un tel mot soit employé 
comme nom de variable. 


Mais, direz-vous, comment connaître tous les mots-clés ? En fait, vous rencontre- 
rez peu de problèmes si vous vous limitez à des noms de deux caractères. En 
effet, les seuls mots-clés de deux lettres employés par votre Amstrad sont: 


IF, ON, OR, TO, PI, SQ, FN et El. 


Pour faciliter vos corrections 


Nous avons vu comment il était possible de corriger une instruction, à l'aide de 
la touche «DEL » (tant que vous n'avez pas appuyé sur «ENTER »). 


En fait, il existe d'autres touches vous permettant d'effectuer des corrections. 
Voyez ces deux exemples : 


Exemple 1 : si vous tapez: 







Pour l'instant, le curseur est 
ici (VOUS n'avez donc pas 
encore tapé sur «ENTER». 
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vous pouvez faire reculer le curseur sur l'une des deux lettres |, à l'aide de la 
touche : 


Cette fois, rien ne s'est effacé. Si maintenant vous appuyez sur 


CLR 


vous voyez disparaître le | sur lequel se trouvait le curseur. 


Maintenant que votre instruction est correcte, vous pouvez l'exécuter en tapant 
«ENTER ». Il n'est pas nécessaire de ramener le curseur à droite du 5. 


Exemple 2: si vous avez tapé: 





vous pouvez faire reculer le curseur sur la lettre N. Ensuite vous tapez | qui vient 
s'insérer à gauche du curseur, entre R et N. 


Maintenant, votre instruction est correcte (le curseur est sur le R). Vous pouvez 
l'exécuter en tapant «ENTER ». 
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pas que: 


CLR efface le caractère situé sous le curseur 


(?) Faites-vous la main 
ay Habituez-vous à corriger n'importe quelle faute à l’aide des touches +, —, DEL et CLR. N'oubliez 
| DEL efface le caractère situé à gauche du curseur. 


EXERCICES (corrigés à la fin du livre): 


Nous vous conseillons de chercher d'abord à résoudre ces exercices «sur le papier ». 
Vous pourrez ensuite, si vous souhaitez, taper les instructions correspondantes sur votre 
Amstrad. 


1. Que fait l'instruction: PRINT 15 + 3 

2. Donnez une instruction permettant d'obtenir la valeur de 365 x 21. 

3. Donnez une instruction permettant d'affecter la valeur 150 à une variable nommée E. 
4 


. Que font ces instructions (lorsqu'on les exécute dans cet ordre). 
A=5 
PRINT A * À 


5. Même question avec: 
À = 20 
B=5 
C=A:B 
PRINT C 


6. Même question avec: 
À = 15 
PRINT À + 3 
PRINT A 
À = 8 
PRINT A * A 
PRINT A 


7. Vrai ou faux? Lorsque l'on efface l'écran, les variables conservent leur valeur. 
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Il. Numéroter 
des instructions : 
tout un programme 








x ‘8 v 
d'4 


LNIH4 SL8YS 






Dansle précédent chapitre, nous avons appris à donner des instructions à Basic 
qui les exécutait immédiatement. Mais il n'en gardait aucune trace. La preuve, 
si nous voulions exécuter à nouveau une instruction, nous devions la retaper. 
Nous allons maintenant apprendre comment faire «mémoriser» des instruc- 
tions; cela constituera un «programme ». Avant d'aborder la suite, nous vous 
conseillons de «repartir à zéro», en éteignant quelques instants votre Amstrad. 
Notre premier programme 

Vous savez que si vous tapez: 

PRINT 15 + 25 


vous obtenez immédiatement le résultat, suivi du mot «Ready»: 


PRINT 15 + 25 
40 


Ready 


Û 
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Mais si vous tapez cette même instruction précédée d’un numéro (par exemple 
100), il n'en va plus de même: 









Ici, pas de READY. 
Mais le curseur montre que vous pouvez quand même 
«parler» à Basic. 






100 PRINT 15 + 25 
(5 









Apparemment, rien ne se passe. En fait, comme votre instruction comporte un 
numéro, Basic a compris qu'il devait l'enregistrer sans l'exécuter. 


Vous pouvez ainsi enregistrer plusieurs instructions, ce qui constituera un « pro- 
gramme». Pour l'instant, nous allons nous contenter de «jouer» un peu avec 
ce programme formé d'une seule instruction portant le numéro 100. 


Pour «exécuter» un programme 


Tapez: RUN (sans numéro et en n'oubliant pas de taper ensuite sur la touche 
«ENTER »): 






Exécutez les instructions que vous avez enregistrées. 


Mais, direz-vous, j'aurais obtenu le même résultat en tapant simplement l'instruc- 
tion en question, sans l'enregistrer ! Pour ce petit exemple, c'est tout à fait vrai. 
Malgré tout, votre programme est toujours là et vous pouvez l'exécuter autant 
de fois que vous le voulez sans avoir à le taper de nouveau: 






Encore une fois pour voir! 


Le (petit) programme n'a pas changé. Le résultat non pus! 


LR << 





Bien sûr, tout cela sera beaucoup plus intéressant quand le programme sera 
plus gros. Patience... 
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Faisons grossir notre programme 
Nous allons ajouter une nouvelle instruction à notre programme : 
PRINT 25 - 15 


I nous suffit de la taper, en la faisant précéder d'un numéro, par exemple 110. 
Si nous tapons ensuite RUN, voici ce que nous obtenons: 










Enregistrer cette instruction. 


Exécuter l'ensemble du programme enregistré. 
Résultat de PRINT 25 + 15 


Résultat de PRINT 25 - 15 







110 PRINT 25 - 15 


RUN 





Comment Basic sait-il dans quel ordre il doit exécuter vos instructions ? Il se sert 
tout simplement des numéros que vous leur attribuez. Ici, nous avions choisi 100 
et 110. Basic a donc exécuté d'abord l'instruction 100, puis l'instruction 110. 


Ready or not Ready ? 


Vous avez constaté qu'à chaque fois que vous enregistrez une nouvelle instruc- 
tion, Basic se contente de vous présenter le curseur à la ligne suivante. Il n'affiche 
pas le mot «Ready». Curieux, direz-vous! En fait, cela est très pratique quand 
vous enregistrez plusieurs instructions de suite. Dans ce cas, vos lignes se sui- 
vent sans être entrecoupées de «Ready» qui seraient bien désagréables. 


En pratique, donc, sachez que vous pouvez « parler » à Basic dès que le curseur 
apparaît à l'écran. Dans la suite de ce livre, nous ne mentionnerons plus le mot 
«Ready», sauf cas particulier. 


Pour savoir ce que Basic a enregistré 


Tapez LIST (sans numéro): 











100 PRINT 25 + 15 
110 PRINT 25 - 15 


Donnez-moi la «liste» complète du programme. 
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Ici, il n'y a pas de surprise car vous vous souvenez des instructions que vous 
avez tapées. Peut-être même sont-elles encore visibles sur l'écran. Toutefois, 
cela vous permet de connaître avec certitude ce que Basic a enregistré. 


Pour effacer un programme 


Nous avons déjà vu que lorsque vous effacez l'écran, les variables ne sont pas 
modifiées. De la même façon, le programme n'est pas détruit; la preuve: 












CLS =— Ettacez l'écran. 
LIST 
100 PRINT 25 + 15 | 


110 PRINT 25 - 15 











Coucou! Je suis toujours là. 







Pour effacer un programme, il faut employer l'instruction: 
NEW 


Ce mot anglais signifie «nouveau ». C'est une façon de dire que vous avezl'inten- 
tion de préparer un nouveau programme et donc qu'il faut effacer l'ancien. 


Expérimentons cette instruction : 










LIST 

100 PRINT 25 + 15 
110 PRINT 25 - 15 
Ready 
NEW 
Ready 
LIST 
Ready e——— 





Je suis encore là. 


Effacez le programme. 


Ici, Basic ne signale pas vraiment qu'il n'a 
plus rien d’enregistré. Il se contente de dire 
prêt sans autre commentaire. 























lci, exceptionnellement, nous avons fait apparaître les «Ready ». 
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En cas d’erreur 


Nous avons vu comment corriger une instruction que vous êtes en train de taper, 
tant que vous n'avez pas appuyé sur «ENTER ». Vous savez que vous pouvez 
utiliser pour cela les touches +, —, DEL et CLR. 


Mais comment faire si vous enregistrez une instruction comportant une erreur ? 
Essayez ceci (en tapant exactement ce que nous vous proposons) : 


Le mot PRINT est mal orthographié. 
Basic ne dit rien et enregistre l'instruction. 


PURES UE CES 







NEW 
100 PRINT 25 + 15 
100 PRNT 25 - 15 










… La preuve! 





100 PRINT 25 + 15 
110 PANT 25 - 15 
110 PRINT 25 — 15 
LIST 

100 PRINT 25 + 15 
110 PRINT 25 - 15 
RUN 
40 
10 






Pour corriger, vous tapez 
à nouveau l'instruction 100. 


Cette fois, ets, D 
Les résultats sont ceux attendus. | 
Re. De 










Vous voyez qu'il est facile de modifier une instruction: il suffit de la taper à nou- 
veau. 
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Et quand vous ne voyez pas votre erreur! 


Maisil se peut que vous ne vous aperceviez pas de votre erreur avant d'exécuter 
le programme. Que va-t-il se passer ? Essayez à nouveau: 





La ligne 110 comporte une erreur. 






NEW 
100 PRINT 25 + 15 
110 PRNT 25 - 15 











Mais vous avez quand même demandé 
l'exécution du programme. 









Basic exécute sans problème 
la ligne 100... 


… puis découvre une erreur en 110. 
Il vous la signale. 


… et attend vos corrections. 










40, — 










Syntax error in 110 
(110 PRNT 25 - 15 










Vous voyez que Basic ne vous signale votre erreur qu'au moment où il cherche 
à exécuter l'instruction correspondante. Il vous affiche alors l'instruction coupa- 
ble en plaçant le curseur en début de ligne. 


Il vous suffit alors de faire vos corrections comme nous avons déjà appris à le 
faire avec les touches +, —, DEL et CLR. Ici, par exemple, vous pouvez amener 
le curseur sur la lettre N: 


110 PRINT 25 - 15 


Vous tapez ensuite la lettre | qui vient s’insérer entre le R etle N. Comme l’ins- 
truction est maintenant correcte, il ne vous reste plus qu’à taper sur 


« ENTER»: 





Ici, vous tapez «ENTER» sans avoir 
besoin d'amener le curseur 
en fin de ligne. 


La correction a bien été 
effectuée. 
























110 PRIINIT 25 - 15 
LIST 
100 PRINT 25 + 15 


110 PRINT 25 - 15 
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Mais, direz-vous, si je n'aime pas manipuler toutes ces touches et que je préfère 
retaper toute l'instruction. Cela ne pose aucun problème : il vous suffit de frapper 
sur « ENTER » sans effectuer aucune correction. Puis vous tapez à nouveau votre 
instruction. 


Un petit programme de multiplication 


Jusqu'ici, nos petits programmes ne comportaient que des instructions PRINT. 
Voici maintenant un exemple utilisant des variables et donc des instructions 
«d'affectation ». 


Commencez par enregistrer ce programme : 


ALORS,ÇA VENT ? 
AL 







NEW 
100 À = 12 
110B = 16 







120C=A:B 
130 PRINT C 









Basic se contente d'enregistrer ces instructions. |! ne dome) 
pas encore de valeur à À, B et C. 


cul 





Vérifiez-le en faisant une «liste ». Si vous découvrez une erreur, retapez l'instruc- 
tion coupable. 


Si maintenant nous exécutons ce programme en tapant RUN, Basic commence 
par exécuter l'instruction 100. Il range donc la valeur 12 dans A. L'instruction 
110 lui fait placer 16 dans B. Puis, arrivé en 120, il calcule la valeur de À * B, 
ce qui fait ici 192, et il la range dans C. Enfin, l'instruction 130 lui fait écrire la 
valeur de C. 


RUN 
192 
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Nous pouvons obtenir d'autres résultats en modifiant une des instructions de 
notre programme : 


100 À = 15 


LIST 
100 À = 15 
110B = 16 


Re Modification de l'instruction 110. 
130 PRINT C 


Cette fois, À prend la valeur 15 et B la ss 
Si vous n'êtes pas convaincu, faites une liste. 


Modification de l'instruction 100. 










(?) Faites-vous la main 
4 e Tapez ce petit programme (après avoir tapé NEW). 


100 À = 15 
110B = 12 
1208-A+B 
132D=-A-B 
140 PRINT S 
150 PRINT D 


e Faites-en une liste puis exécutez-le. 


e Modifiez la ligne 100, en tapant: 
100 À = 255 


e Listez et exécutez le nouveau programme ainsi obtenu. 
e Même chose avec: 110 B = 148 


e Même chose avec: 120 S = A:B 
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Pour insérer une nouvelle instruction dans un programme 


Enregistrez d'abord ce nouveau programme puis exécutez-le. 


NEW 
100 À = 15 
100C=A:A 


120 PRINT C 
RUN 
225 





Enregistrez alors une nouvelle instruction de numéro 115. comme indiqué. 
Demandez ensuite une liste puis faites exécuter le programme ainsi obtenu : 


L'instruction 115 apparaît entre +10 et 120 


Basic exécute bien l'instruction NS 


A — 






115 PRINT À 
LIST 

100 À = 15 
H0C=A*A 
115 PRINT À 
120 PRINT C 
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Vous constatez que les instructions apparaissent dans l'ordre de leurs numéros. 
Basic les exécute dans cet ordre. Ceci vous montre que vous n'êtes pas obligé 
d'entrer vos instructions dans l'ordre où elles doivent apparaître dans le pro- 
gramme. Pour insérer une nouvelle instruction entre deux autres, il suffit de lui 
donner un numéro intermédiaire. C'est pour cette raison que nous avons choisi 
jusqu'ici des numéros allant de 10 en 10. Cela laisse de la place pour insérer 
de nouvelles lignes en cas de besoin. 










PFFF! QUEL 6 n° 


DÉSORDRE! IL À 
BIEN DE LA CHANCE 
QUE JE M'Y RETROUVE | 






— 
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Pour supprimer une instruction dans un programme 


C'est peut-être la chose la plus simple que l'on puisse faire en Basic. Jugez-en 
par vous-même : il suffit de taper son numéro, suivi de «RETURN ». 


En voici un exemple : 


NEW 


100 À = 12 
110C=A:A 
120 PRINT À 


130 PRINT C Ici, vous avez tapé nl de «ENTER». 










L'instruction (ou ligne) 120 a disparu 


LIST 
100 À = 12 
110C=A*A 


130 PRINT C 
RUN 
144 
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(@) Faites-vous la main 


e Tapez NEW et enregistgrez ce programme : 


100 X = 1483 
110 Y = 38 
120 PRINT P 


e Listez-le et exécutez-le. Il doit vous imprimer 0. Regardez pourquoi : la variable P ne reçoit pas de 
valeur. 


e Ajoutez l'instruction: 
HSP=X"Y 


e Listez et exécutez à nouveau. 
e Effacez la ligne 115. 


e Tapez ceci: 
120P=X:Y 
130 PRINT P 


e Listez et exécutez. 


Et si vous « pataugez » complètement 


Si vous êtes débutant, vous devez certainement vous sentir timide et hésitant 
vis-à-vis du clavier. 


Dites-vous bien que quoi que vous fassiez, vous ne risquez pas d'abîmer votre 
ordinateur. Mais, direz-vous, et si je fais une «fausse manœuvre »… si je bloque 
tout. si je ne comprends plus où j'en suis. si le mot «Ready » n'apparaît plus... 


Dans ce cas, il y a toujours un remède efficace : il suffit d'éteindre votre Amstrad, 
d'attendre quelques secondes et de le rallumer. Cela vous permet de «repartir 
à zéro». C'estle «on efface et on recommence » bien connu. Bien entendu, vous 
perdez alors votre programme. 


Il existe une autre solution, plus douce. Elle consiste à revenir à l'«éfat initial» 
en appuyant simultanément sur les trois touches: 


CTRL SHIFT ESC 


Vous constatez que tout se passe comme si vous veniez d'allumer votre 
Amstrad. L'écran s'efface et vous voyez apparaître le texte de présentation suivi 
du mot Ready (mais votre programme a quand même disparu). 
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EXERCICES 


(N'oubliez pas de chercher d'abord «sur le papier») 





1. Quelle différence y at-il entre ces deux instructions : 
PRINT 25 + 15 
100 PRINT 25 + 15 


2. Soit le programme: 
100 N = 15 
110 PRINTN : N 
Comment le modifier pour obtenir : 
a) le carré de 257 
b) le carré de 437 


3. Soit le programme : 
100 À = 18 
110B = 22 
120 PRINT À * A 
a) Comportet-il une erreur? (pour Basic). Que produira son exécution ? 
b) Que contient-il d'anormal? (pour vous). 
c) Comment lui ajouter une instruction nous fournissant également le carré de B? 


4. Supposez que vous ayez tapé ces instructions : 


NEW 
100 N = 16 
110 PRINT N 


120 PINTN *: N 
a) Qu'obtiendrez-vous si vous tapez RUN ? 
b) Comment corriger la ligne 120. Qu'obtiendrez-vous alors ? 


5. Que signifie ce message: 
Syntax error in 140 


6. Comment se sortir d'un cas désespéré ? 
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II. Des chiffres, 


mais aussi des lettres 


Point ou virgule ? 


Jusqu'ici, nous avons travaillé avec des nombres entiers. Mais, bien entendu, 
Basic peut effectuer des calculs avec des nombres décimaux. Il vous faut simple- 
ment penser à remplacer la virgule par un point (comme vous le feriez avec une 
simple calculatrice). En voici un petit exemple : 






Cette instruction donne à A la valeur 2,53. 






NEW 
100 À = 2539 = 
110B = 43 
120 PRINT À + B 
RUN 
















Celle-ci donne à B la valeur 43, 
Le résultat est bien 6,83. Quelle chance! 













6.83 — 
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Travail de précision 


Essayez ces quelques instructions (en mode «direct» cette fois) : 







PRINT 514 
1.25 
PRINT 1/3 
0.333333333 -— 
PRINT 2/3 
0.666666667 + 
PRINT 200/3 


66.6666667 











Pas mal. Il n'y a que 9 chiffres, mais il faut bien s'arrêter 
quelque part... 

















Toujours neuf chiffres. Le dernier est faux car Basic 
a arrondi du mieux qu'il pouvait. 





Toujours neuf chiffres. en tout. 


On dit que le Basic de l'Amstrad représente les nombres avec une précision de 
«9 chiffres significatifs ». 
Respectez la priorité ou mettez entre parenthèses : 


ns TE Ut E-aTLER l 
5 _<TBasic à fait la multiplication avant l'addition. 


Es EP 


Basic a d’abord calculé ce qui était entre parenthèses. 
a — 
#9 
Su 
A  — 
1 Basic a fait la division avant à SousGIO 


Vous constatez que les règles de priorité sont les mêmes que pour une calcula- 
trice. 











PRINT 2 + 804 
14 
PRINT (2 + 3) * 4 
20 
PRINT (8 + 2)S 
2 
PRINT 5 - 10/2 
0 
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Attention aux erreurs 


Essayez ces instructions : 







Eh oui, nous avons oublié le signe * ! 
Mais pourquoi 0 ? 


PRINT C (A + B) 


0 ——— 













Le zéro que nous obtenons semble bien mystérieux. C'est qu'en fait C (A + B) 
signifie quelque chose pour Basic : C représente alors un «tableau». Ne cher- 
chez pas à savoir ce qu'est un tableau pour l'instant. Sachez seulement que si 
vous oubliez un signe * devant ou derrière une parenthèse, vous n'aurez pas 
toujours droit à un message « Syntax error ». Vous pourrez aussi obtenir d'autres 
résultats curieux comme dans ces exemples: 





= — 
Encore un problème de tableau ! 


Ps RER RÉ SRE SE GRR 
lci, Basic à cru qu'il devait écrire la valeur 
de À + B suivie de la valeur de C. 










PRINT A (B + C) 
Subscript out of ee 


PRINT (A + B)C 
8 12 
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(?) Faites-vous la main 


ay Essayez de prévoir la réponse de Basic dans chacun des cas suivants. Vérifiez ensuite. 


e PRINT4:6-5 

e PRINT5:3+2*4 
e PRINT (5 + 3)*(8- 7) 
e PRINT (8 + 3)5 

° PRINT 3 (9 + 7) 
°A=12 

°B-20 

° PRINT (A + 5)B 

° PRINT À (B + 3) 

e PRINT3+ (245 


Pour écrire plusieurs choses sur une même ligne 
Examinez ce programme : 













100 À = 13 
110C=A"A 
120 PRINT À 
130 PRINT C 


Valeur de À. 





Valeur de C. 


Les valeurs de A et C apparaissent sur deux lignes différentes. 
Supprimons maintenant la ligne 130 et modifions 120 comme indiqué : 


Supprimer la ligne 130. 


130 
120 PRINT A. B 
LIST 

100 À = 13 
110C= AA 
120 PRINT A. C 
RUN 
13 










Ecrire la valeur de À puis, un peu plus loin, celle de C. 


169 = 








Les deux valeurs sont écrites sur la même ligne. 
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Vous voyez qu'un intervalle assez important sépare les deux valeurs. En fait, 
Basic partage chaque ligne d'écran en3 parties égales. La virgule figurant dans 
l'ordre PRINT demande d'écrire sur la partie suivante de la même ligne. 


Vous pouvez ainsi faire écrire autant de choses que vous le souhaitez dans une 
même instruction PRINT. Si, par hasard, vous en écrivez plus que la ligne ne 
peut en contenir, Basic passera automatiquement à la ligne suivante. 


Voici un autre exemple: 







NEW 
100 À = 15 
1108 = 16 
120 C = 17 
130 PRINT À, À « A 
140 PRINT B, B  B 


150 PRINT C, C + C 


















Voyez comme les résultats s'alignent 
élégamment. 














225 
256 
289 







Pour tasser.… 


Vous pouvez aussi utiliser un point-virgule (;) au lieu d'une virgule. Voyez le 
résultat : 


NEW 
100 À = 13 


110C=A*A Les deux valeurs ne sont séparées que par 2 espaces. 


120 PRINT A: C 
RUN 
13 169 
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En fait le point-virgule demande d'écrire les choses à la suite l'une de l'autre. 
Mais, les nombres sont affichés avec un emplacement pour le signe et un espace 
après. C'est pourquoi il ÿ a quand même deux espaces entre 13 et 169. 


(?) Faites-vous la main 
ay * Essayez de prévoir ce que vont produire ces instructions. Vérifiez le 


e PRINT 1,5 

e PRINT 5, 10, 15 

e PRINT 1.2, 5.43, 4 
e PRINT3;5 

e PRINT 25 ;3 

e PRINT 2,5,2,4 


* Mêmes questions avec ce programme 


100A=9 

1100B=5 

120 PRINT A, B, À + B 

130 PRINT B, 2 * B 

140 PRINTA;B,A*A;B:B 


Pour écrire du texte 

Vous trouvez maintenant tout à fait normal que l'instruction: 
PRINT 5 

écrive la valeur: 5. 


Et si nous voulions écrire autre chose qu'un nombre, par exemple : « SALUT ». 
Vous songez, un peu hâtivement peut-être à: 





PRINT SALUT <— 
0 





Tiens, on me demande la valeur de la variable SALUT. 
Eh bien, ca fait. 0. 


En effet, de même que PRINT A signifie «écrire la valeur de A », PRINT SALUT 
signifie «écrire la valeur de la variable « SALUT ». Comme il est probable que 
vous ne lui avez encore donné aucune valeur, Basic lui donne un zéro d'office. 


Comment alors obtenir ce que nous voulions. 
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Essayez: 








COS CREER RE 
Ces symboles s'obtiennent en appuyant sur la touche 


mauée | tandis que vous maintenez la touche | SHIFT 
enfoncée. 






_ } 
PRINT “SALUT” 


0 





Voilà! c'est aussi simple que cela. Il vous suffit de placer votre texte entre guille- 
mets. 


Entre guillemets, pas de censure ! 


Voici quelques exemples : 











PRINT “HELLO LOLO" 
HELLO LOLO 
PRINT “OH LA FOTE" 
OHLAFOTE 
PRINT “BASIC ECOUTE" 
BASIC ECOUTE 






L'espace qui figure dans le texte, a été imprimé comme 
[VC tous les autres caractères. 












En TE CASE AE 
€ Qui a vu une faute! Sirement pas Base 


Vous pouvez placer n'importe quel texte entre les guillemets. Basic n'y trouvera 
jamais rien à dire. En fait, un texte peut contenir n'importe quel caractère que 
vous trouvez sur le clavier: lettres, chiffres, +, —, =, etc. 


Comparez ces deux instructions : 







PRINT 5 + 3 
8 
PRINT “5 + 3" 
5+3 


Ecrire la valeur de 5 + 3. 










Ecrire le texte: 5 + 3. 
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Voyez ce programme : 







NEW 
100 À = 127 
110 PRINT “A" 
120 PRINT À 









Texte écrit par la ligne 110. 





Valeur de À écrite par la ligne 120, 






(?) Faites-vous la main 


* Essayez de prévoir ce que vont produire ces instructions. Vérifiez-le. 


e PRINT “A = 9" 

e PRINT'A=":9 

e PRINT ‘‘PRINT-EMPS"' 

e PRINT 12 + 7° 

e PRINT BONJOUR", "MONSIEUR" 

e PRINT BONJOUR" : MONSIEUR" 

(Voyez comme ces deux chaînes sont accolées) 


* Mêmes questions avec ce programme : 


100 CLS 
110 PRINT “ICI RADIO MIT-MIT“ 
120 PRINT “’LAURENCE ECOUTE" 


Pour éclairer les résultats d’un programme 


Considérez ce petit programme: 







100 CLS 
VOA = 75 
120 B = 225 
130 PRINT À + B 





Instruction d'effacement d'écran. 
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Si vous l’exécutez vous obtenez, en haut de l'écran (que l'instruction 100 a 
effacé) : 


300 — Valeur écrite par la ligne 130. 





Vous pouvez éclairer ce résultat un peu obscur en l'accompagnant d'un petit 
texte. Remplacez, par exemple, la ligne 130, comme indiqué: 







130 PRINT “SOMME =" : À + B 
LIST 

100 CLS 
110 À = 75 
120 B = 225 


La valeur de la quantité : À + B 
ani, 
130 PRINT “SOMME ="; À + B 
RUN 


Es Ici, il y a eu effacement 
> 4 sure 
SOMME = 300 


C'est mieux. Mais on ne sait toujours pas de quelle somme il s'agit. Voici un pro- 
gramme qui fournit des résultats plus satisfaisants : 












Le texte: SOMME = 



















NEW 
100 CLS 

110 À = 75 

120 B = 225 

130 PRINT A: "ET"; B 


140 PRINT “ONT POUR SOMME" ; À + B 
RUN 





75 ET 225 
ONT POUR SOMME 300 
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Quand la ligne déborde 


Essayez d'enregistrer ce programme d'une seule instruction: 


NEW 


100 PRINT “SALUT MON NOM EST AMSTRAD ET VOUS ?" 








Vous constatez que lorsque vous tapez l'espace entre le ET et le VOUS de la 
ligne 100, le curseur passe en début de la ligne suivante. En effet, chaque ligne 
de votre écran ne peut afficher que 40 caractères. Mais rassurez-vous! Vous 
pouvez continuer votre instruction. Elle ne se terminera que lorsque vous taperez 
sur « ENTER ». Finalement votre écran se présentera ainsi: 


Ici, ne frappez surtout pas 
ENTER. 










100 PRINT ‘SALUT MON NOM EST AMSTRAD ET 
VOUS 7e nr 









Ici, par contre vous frappez 
ENTER. 


AT 


Si vous exécutez ce programme, vous obtiendrez: 


RUN 


SALUT MON NOM EST AMSTRAD ET VOUS ? 





Le texte tient sur une ligne d'écran. Si cela n'avait pas été le cas, Basic l'aurait 
simplement continué sur la ligne suivante. 


Dans la suite de ce livre, nous rencontrerons des instructions ne tenant pas sur 
une seule ligne d'écran. Nous continuerons à parler de «ligne Basic ». Souvent, 
nous vous la présenterons «sans coupures», afin qu'elle soit plus lisible. 
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EXERCICES 





. Quelles sontles deux façons d'écrire sur une même ligne les valeurs de deux variables 
A et B? 


. Que produira l'exécution de ce programme : 
100 À = 25 

110B=5 

120 PRINT A ; “DIVISE PAR‘: B ; ‘’VOT: : A/B 


. Que fournira l'exécution de ces instructions (en mode direct) : 
a) PRINT ‘6 DIVISE PAR 4 =‘; 5/4 

b) PRINT ‘5/4 =; 5/4 

c) PRINT ‘2/3 ="; 5/4 


. Que produira ce programme : 


100 À = 15 
110B =8 
120C=A:B 


130 PRINT “PRODUIT ; C 


Modifiez-le pour que son exécution fournisse : 
PRODUIT DE 15 PAR 8 = 120 


. Que produira ce programme : 

100 À = 25 

110 PRINT ‘VOICI UN NOMBRE‘ : À 

120 PRINT ‘‘VOICI SON DOUBLE" : 3 * A 
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IV. Pour établir 
le dialogue 


Pour que votre programme vous interroge 


Voici un programme que nous avons déjà rencontré : 


100 À = 12 
110C=A"A 


120 PRINT C 
RUN 
144 





Il calcule le carré d'un nombre, ici 12. Mais ce nombre est prévu dans le pro- 
gramme. Vous le choisissez lorsque vous enregistrez le programme et non pas 
quand vous l'exécutez. 


Si vous exécutez plusieurs fois le programme, il vous fournira toujours le même 
résultat : 144. Et si vous souhaitez obtenir le carré d'autres nombres ? Vous pour- 
vez, bien sûr, modifier l'instruction 100. En voici deux exemples : 


100 À = 15 
RUN 
225 


100 À = 25 
RUN 
625 
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Il existe une instruction qui vous permet de choisir la valeur de À, uniquement 
au moment de l'exécution du programme. Il s'agit de «INPUT » (qui signifie 
«entrée»). Modifions comme indiqué l'instruction 100 puis exécutons le nour- 
veau programme ainsi obtenu : 






100 INPUT À 
LIST 
100 INPUT À 
110C=A:A 
120 PRINT C 


RUN 
? 







Ce point d'interrogation est écrit par Basic. 
Il semble attendre quelque chose! 









A la rencontre de l'instruction INPUT, Basic vous affiche un point d'interrogation 
pour vous indiquer que vous devez lui fournir une valeur. Il attend patiemment 
que vous le fassiez. Là encore, vous signalez que vous avez fini de la taper en 
appuyant sur «ENTER ». 








Ici, vous avez tapé «ENTER». 


Basic range cette valeur dans À et poursuit ri) 
du programme. 


Voyons la souplesse que nous apporte cette instruction en exécutant plusieurs 
fois notre programme, avec différentes valeurs: 


N'oubliez quand même pas de taper RUN. 








Lorsque vous exécutez ainsi plusieurs fois de suite le même programme, vous 
risquez d'oublier de frapper RUN. Que se passe:t-il alors si vous tapez directe- 
ment 11 (alors que Basic ne vous a pas affiché de «°?»). 


44 


Tout simplement, Basic effacera la ligne 11. Si elle n'existe pas, ce n'est pas 
grave, sinon... 


En cas de mauvaise réponse 


Exécutons à nouveau notre programme : 


Comment voulez-vous que je donne une valeur à À 

avec cela! 

Recommencez (votre réponse). Je vous interroge à nouveau. 
RE Ve 


La tentation du débutant ! Quand on est perdu, on demande 
une liste. Oui, mais pour l'instant, j'attends un nombre. 









RUN 
7 x 
? Redo from start —— 
? LIST 

ge 
? Redo from start 
7? À 
? Redo from start 
? 50 


AT 
2500 - 





























Toujours pas satisfaisant. 





Pour savoir ce que votre programme attend 









Lorsque vous voyez 
apparaître un point 
d'interrogation, vous 
ne savez pas toujours 
ce qu'attend votre 
programme. Bien sûr, 
ici, le programme était 
simple et vous en 
aviez la liste sous les 
yeux. Mais imaginez 
un programme plus 
compliqué qui deman- 
de plusieurs choses! 
Supposez qu'en plus, 
il commence par effa- 
cer l'écran! 


MAÏS QU'EST-CE 
QU'IL ATTEND ? 
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l'est facile de résoudre ce problème. Il vous suffit de faire écrire quelque chose 
avant que Basic ne vous interroge. Voyez cet exemple : 






NEW 
140 INPUT À 
7 a 
DONNEZ UN NOMBRE 

73 
VOICI SON CARRE 961 















Ce texte, écrit par la ligne 100 
précise ce qu'on attend 
de vous. 
















Pour ne pas changer de ligne 


Modifions l'instruction 100 en ajoutant un point-virgule à la fin: 







100 PRINT “DONNEZ UN NOMBRE“; 
LIST 

100 PRINT “DONNEZ UN NOMBRE" ; 
110 INPUT À 
120C=A"A 
130 PRINT “VOICI SON CARRE"; C 
RUN 
DONNEZ UN NOMBRE ?_17 
VOICI SON CARRE 289 





Ce point-virgule empêche le 
passage à la ligne après 
l'écriture du texte. 













Votre réponse apparaît 
ainsi sur la même ligne. 
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Multiplication à la demande 


Voici un programme qui multiplie deux nombres de votre choix: 


NEW 
100 PRINT “JE VAIS CALCULER LE PRODUIT" 
110 PRINT “DE DEUX NOMBRES" 

120 PRINT 


130 PRINT ‘DONNEZ LE PREMIER": On peut très bien demander 
DR Ann Re d'écrire. rien! 
140 INPUT X 








150 PRINT “DONNEZ LE SECOND"; 


160 INPUT Y 


DO PRINT 


180 PRINT “VOICI LEUR PRODUIT"; X * Y 





Exécutons:le : 







RUN 
JE VAIS CALCULER LE PRODUIT 
DE DEUX NOMBRES 
__——. 
non 
DONNEZ LE PREMIER ? 41 
DONNEZ LE SECOND? 8 





Ligne vide provoquée par l'instruction 120: 


















Ligne vide provoquée par l'instruction 170. 


VOICI LEUR PRODUIT 328 


Voyez comme une simple instruction PRINT permet «d'aérer» vos résultats. 
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Pour fournir plusieurs valeurs dans une même instruction 


Il est possible de demander plusieurs valeurs dans une instruction INPUT. 
Essayez ce programme : 







NEW 
100 PRINT “DONNEZ 2 NOMBRES" 
110 INPUT A, B 
130 PRINT “VOICI LEUR SOMME"; S 
RUN 
DONNEZ 2 NOMBRES 
7 127.13 
VOICI LEUR SOMME 140 















VIN AIS 
Cette instruction demande 2 valeurs. 


















Vous les fournissez. séparées par une virgule. 









Remarquez que lorsqu'ilexécute l'instruction 110, Basic n'affiche toujours qu un 
seul «? ». || ne vous dit pas combien de valeursil attend. Vous pouvez facilement 
vous tromper et en donner trop ou trop peu. Que se passe-t-il alors? Voici deux 
exemples : 






RUN 
DONNEZ 2 NOMBRES 


? Redo from start 


an D ne eve" 
Ici vous avez tapé une première valeur, 
puis «ENTER». 


RP 










Basic n'est pas satisfait. 
- Il vous demande de fournir 
= à nouveau une réponse (complète). 


VOICI LEUR SOMME 140 VA AL 





a 





























RUN 
DONNEZ 2 NOMBRES 
? 1.5,3,5 ES 


? Redo from start 


9 15,35 JT SE. 
CR. FS Là encore, vous devez fournir 
VOICI LEUR SOMME 5 une nouvelle réponse complète. 


Vous avez tapé 3,5 au lieu 
de 3.5. Cela fait donc 3 valeurs 
(en tout) pour Basic. 


ER. 
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(@) Faites-vous la main 


100 INPUT À, B 

110 PRINT À : B 
lorsque vous répondez: 
e 3,12 

e 3,8,7 

.4 

e LIST 

e RUN 

e 06 


sig * Essayez de prévoir ce que fournira ce programme (vérifiez ensuite) : 


Pour manipuler des textes: les variables chaîne 


Voyez ce programme : 





100 A = 8 +— : Cage ru erroné} 
RENE NA we. 
110 PRINT À Fe. 


et celui-ci: Rs 
100 T$ = HELLO" RES 


= 











110 PRINT T$ ND 
ES Ranger le texte «HELLO» dans une variable nommée TS: 


NE D NS res 


Ecrire le contenu de TS. À 
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Jusqu'ici, nous avons dit que HELLO était un texte. En Basic, le terme exact est 
chaîne de caractères, ou plus brièvement «chaîne ». Nous dirons que T$ est une 
« Variable chaîne ». 


Comment Basic reconnaît-il une variable chaîne ? Simplement au fait que son 
nom se termine par $. Les règles de formation des noms des variables chaînes 
sont les mêmes que pour les variables «numériques » (celles qui contiennent des 
nombres). 


Un programme d'accueil 


Voici un exemple amusant d'utilisation d'une variable chaîne: 








NEW 
100 PRINT “QUEL EST VOTRE NOM“: 
110 INPUT N$ 
120 CLS 
130 PRINT “BONJOUR “: NS 
140 PRINT “BIENVENUE À BORD 

150 PRINT “DE L'AMSTRAD" 
RUN 
QUEL EST VOTRE NOM? YVETTE 







Vous affiche un «?». Attend une valeur chaîne 
pour N$. 




















N'oubliez pas un espace ici. Sinon le nom sera 
affiché, accollé à BONJOUR. 













BONJOUR YVETTE 
BIENVENUE A BORD 
DE L'AMSTRAD 





120 efface l'écran. 
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Les risques d’erreur 


Essayez ce programme qui vous demande une chaîne de caractères et qui vous 
la réécrit : 







NEW 
100 INPUT C$ 
110 PRINT “MERCI POUR ‘ ; C$ 







RUN 
“ne 
MERCI POUR TOUT 









RUN 
?_ PARIS 2 
MERCI POUR PARIS 2 
RUN 
? 32 

MERCI POUR 325 
RUN 
? BONJOUR TOI 
MERCI POUR BONJOUR TOI 
RUN 
2? 3+5=4 

MERCI POUR 3 + 5 = 4 
RUN 

? BONJOUR, MONSIEUR 

? Redo from start Pet 
? BONJOUR 

MERCI POUR BONJOUR 






325 est ici considéré comme une «chaine » 
de 3 caractères. 


Ici, vous avez laissé un espace. C'est un 
caractère comme un autre. 


























Comme il y a une virgule, Basic considère 
que vous lui fournissez 2 textes. 













51 


Enregistrez ce programme. 


NEW 
100 PRINT ‘‘QUEL EST VOTRE PRENOM"; 





PR$: votre prénom. 





110 INPUT PR <— 
120 PRINT “EN QUELLE ANNEE SOMMES-NOUS" : 
130 INPUT AN 


140 PRINT É 
150 PRINT "BONJOUR" ; PRS 


160 PRINT ‘EN QUELLE ANNEES ETES-VOUS NE"; 


170 INPUT NA 
180 AG = AN - NA 


190 CLS 
200 PRINT “DITES-MOI “; PR$ 


210 PRINT ‘QUE RESSENT-ON" 
nc votre âge dans AG. 
220 PRINT ‘QUAND ON A"; AG; ANS" 
































Exécutez-le : 















RUN 

QUEL EST VOTRE PRENOM? LAURENT 
EN QUELLE ANNEE SOMMES-NOUS? 1985 
BONJOUR LAURENT 

EN QUELLE ANNEE ETES-VOUS NE? 1969 2 









Vos réponses. 


DITES-MOI LAURENT 
QUE RESSENT-ON 
QUAND ON A 16 ANS 
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>) Faites-vous la main 

na * Enregistrez ce programme : 

me 100 INPUT CH$ 
110 PRINT “VOUS AVEZ DIT“; CH$ 
Voyez ce que produit son exécution lorsque vous répondez: 
e BONJOUR 
e 25 
e BONJOUR, MONSIEUR 
e BONJOUR MONSIEUR 


* 


Même questions avec ce programme : 
100 INPUT N, TX$ 

110 PRINT NOMBRE"; N 

120 PRINT TEXTE"; TX$ 

et les réponses suivantes : 

e 127, BONJOUR 

e 485, 29 

e N, 3 

°47 

e 212, BONJOUR, 35 

e 212, BONJOUR, MONSIEUR 


EXERCICES 


1. Vrai où faux? Un programme fournit toujours les mêmes résultats. 
2. Que signifie l'apparition d'un point d'interrogation ? 


3. Que produira ce programme : 
100 INPUT A 
110 PRINT ‘MERCI POUR‘: À 
suivant que vous l'exécutez en répondant : 
a) 25 
b) BONJOUR 
c) LIST 


4. Mêmes questions avec: 
100 INPUT AS 
110 PRINT ‘MERCI POUR ‘: A$ 


5. Que produit ce programme : 
100 PRINT ‘BONJOUR; 
110 PRINT MONSIEUR" 
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6. 
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Que produira ce programme : 
100 PRINT ‘BONJOUR 

110 PRINT 

120 PRINT 

130 PRINT ‘’MONSIEUR" 


Que signifie ce message: 
? Redo from start 


V. Bouclez... bouclez 


La boucle infernale 


Enregistrez ce petit programme : 


NEW 

100 PRINT BONJOUR" 

110 PRINT “COMMENT ALLEZ-VOUS" 
RUN 

BONJOUR 

COMMENT ALLEZ-VOUS 











Bien sûr, les instructions 100 et 110 ne s'exécutent qu'une seule fois. Ajoutez 
une nouvelle instruction: 


120 GOTO 100 


LIST TS DEEE 
ER Signifie : aller en 100 (ou revenir en 100 - 
100 PRINT BONJOUR" comme vous préférez) re 


PARA IR AT 


110 PRINT “COMMENT ALLEZ-VOUS"__ 


120 GOTO 100 
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Si vous exécutez ce programme, il va écrire sans cesse le même texte: 


RUN 
BONJOUR 

COMMENT ALLEZ-VOUS 
BONJOUR 





COMMENT ALLEZ-VOUSe 
BONJOUR -— 
COMMENT ALLEZ-VOUS = 
BONJOUR —— 

















Un peu monotone ! Et, en plus, direz-vous, comment s'arrête-t-on ? Appuyez sur 
la touche: 


ESC JE TOURNE..e JE TOURNE à 
MAÏS QU'EST-CE QU'IL ATTEND ie 
ME ji SIGNE PE 
ei G—- kr nnt = Z 





Vous voyez que l'exécution s'interrompt mais Ready n'apparaît pas. Si vous 
tapez sur n'importe quelle touche, l'exécution reprend. Par contre, essayez de 


frapper 2 fois de suite sur ESC. 
Vous frappez deux fois ESC 
ÉS0s mu Je me suis arrêté en ligne 110. 


À vos ordres! 







COMMENT ALLEZ-VOUS - 
he 
BONJOUR #7 


Break in 110 —— — 

















Ready 
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Basic vous indique quelle ligne il exécutait lorsque vous l'avez interrompu. Dans 
votre cas, ce sera peut-être 100... 


Une autre boucle éternelle 


Voici un autre exemple, un peu plus utile : 






Demandent un nombre 






NEW 
100 PRINT “DONNEZ UN NOMBRE": 
110 INPUT À 
120 PRINT “VOICI SON CARRE" : À + À 
130 GOTO 100 












Vous donne son carré. 
Et on recommence... 


RUN Cette fois, dès que ee, 
DONNEZ UN NOMBRE? 25 ce message apparaît 


VOICI SON CARRE 625 nou 


DONNEZ UN NOMBRE? _-9 paie D 


VOICI SON CARRE 81 


EE * : 
DONNEZ UN NOMBRE ? “Break 
Break in 110 


Ready 
















Pour contrôler la boucle 


L'instruction GOTO 100 renvoie systématiquement Basic à la ligne 100. On dit 
que c'est un «branchement inconditionnel». Inconditionnel, cela veut dire «sans 
aucune condition ». 


Mais il existe une instruction de «branchement conditionnel»: dans ce cas le 
«branchement» n'a lieu que si une certaine condition est réalisée. Nous 
employons une telle instruction dans l'exemple suivant : 
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NEW 
100 PRINT “DONNEZ UN NOMBRE" ; 
110 INPUT À 
120 PRINT “VOICI SON CARRE" : À * À 
130 PRINT “VOULEZ-VOUS CONTINUER" ; 
140 INPUT RS 

150 IF R$ = “OUI THEN GOTO 100 
160 PRINT “AU REVOIR - MERCI" 





Vous demandent si vous 
souhaitez continuer. 































Si votre réponse est « OU», 
on revient en 100... 
Sinon on passe à la suivante : 
















L'instruction 150 signifie exactement: Si (IF) la variable R$ contient la valeur 
«OUI», alors revenir en 100: dans le cas contraire, passez à l'instruction sui- 
vante, ici 160. Vérifions-le en exécutant le programme: 


nr — 
Attention ! Si le OUI de la ligne 150 
est écrit en majuscules, 

il faut répondre également 


en majuscules. sinon... 
PERS ARE 










RUN 
DONNEZ UN NOMBRE ? _12 
VOICI SON CARRE 144 
VOULEZ-VOUS CONTINUER? OUI 
DONNEZ UN NOMBRE ? 9 

VOICI SON CARRE 81 
VOULEZ-VOUS CONTINUER ? NON 
AU REVOIR - MERCI 
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Une autre façon de s’arrêter 


Au lieu de poser la question « VOULEZ-VOUS CONTINUER », nous pouvons 
convenir de ne continuer que lorsque la valeur fournie pour À est positive : 


100 PRINT “DONNEZ UN NOMBRE"; 
110 INPUT À 













Si la valeur À est > 0, on revient en 100, 


sinon on passe à la suite. qui ici est la tin. 
RS 


120 PRINT ‘VOICI SON CARRE"; À * À 
130 IF À > 0 THEN GOTO 100 | 
Fi — 






















RUN 
DONNEZ UN NOMBRE ? 22 
VOICI SON CARRE 484 
DONNEZ UN NOMBRE ? 30 
VOICI SON CARRE 900 

DONNEZ UN NOMBRE ? 0 
VOICI SON CARRE 0 
Ready 










Le carré de 0 a éte calculé en 120 
avant que Basic ne découvre en 130 


qu'il devait s'arrêter. 
+ SALES 





Comparez des choses comparables 
Dans nos deux exemples, nous avons rencontré deux sortes de conditions : 


eR$ = «OUI» La variable chaîne R$ contient-elle le texte «OUI» ? 
°A>0 La variable numérique A contient-elle une valeur supérieure à 
zéro ? 


Nous aurons l'occasion de rencontrer d'autres sortes de comparaisons par la 
suite. Pour l'instant, sachez que Basic refusera de comparer des chaînes avec 
des nombres. Voyez ce qui se passerait si vous cherchiez quand même àle faire : 


59 







Un texte pour R$. 









NEW 
100 INPUT R$ 
110 INPUT N 
120 IF R$ = N THEN GOTO 100 
RUN 
? BONJOUR 







Un nombre pour N. 




























Signifie : variables de nature (type) différente en 120. 
C'est vrai: R$ est une variable chaîne; N est une variable 
numérique. 


7 55 , — 
Type mismatch in 120 7 





Ready 
RUN 








? 55 ———— 
? 40 


? Type mismatch in 120 —— 


1? ] Faites-vous la main 


Essayez de prévoir ce que font chacun des programmes suivants. Vérifiez ensuite en les exécutant 
sur votre Amstrad. 


e 100 PRINT ‘DONNEZ UN PETIT NOMBRE"; 
110 INPUT N 
120 IF N > 30 THEN GOTO 100 
130 PRINT ‘‘VOILA" 


ss si nn DO D et 
*OMRUTRS Me RUE 


120 IF R$ < > MERCI" THEN GOTO 100 
130 PRINT ‘DE RIEN" 


e 100 PRINT “DITES MERCI" 
110 INPUT R$ 
120 IF R$ = ‘MERCI THEN GOTO 100 
130 PRINT “JE VOUS AI BIEN EU" 
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Pour compter les tours 


Reprenons notre programme de la page 59. 


NEW 
100 PRINT “DONNEZ UN NOMBRE": 





110 INPUT À 
120 PRINT “VOICI SON CARRE"; À * À 





130 IF À > O THEN GOTO 100 








Il nous calcule des carrés jusqu'à ce que nous lui fournissions une valeur nulle 
(ou négative). Nous allons demander au programme de nous dire combien de 
carrés il a calculé. Pour cela, nous pouvons «compter» le nombre de fois que 
Basic répète les instructions 100 à 120. 


Comment compter? En utilisant une variable et en s'arrangeant pour que sa 
valeur augmente de 1 à chaque tour. 


Quelle est l'instruction qui fait augmenter de 1 la valeur d'une variable, par exem- 
ple 1? Rappelez-vous le rôle d'une instruction d'affectation comme : 


C=A+B 


Elle signifie : - calculer la valeur de À + B 
° puis ranger le résultat dans C 
Mais alors que fait: 


1l=1+1 


Cette instruction signifie: + calculer la valeur de | + 1 
e puis ranger le résultat dans | 


Supposons que | contienne la valeur 6. Voici un schéma qui montre ce que va 
faire Basic lorsqu'il rencontera l'instruction: | = | + 1 


CALCULER 1+4 









dei AN TONTIENT 6 : 
CA NOUS FAIT DONC 
+ 1 alculer 1 + 1. | contient 6. Ça nous fait ss EUH .… 71 
donc … euh... 7. É 
RANGER CE 
RESULTAT Ù 
ape nomméel4  PANS LA CE | ee 
Ge VARABÉP SEE. 
VOILA ! | : 
< 


Cette instruction résout bien notre problème de comptage. Incorporons-là dans 
notre programme, par exemple entre 120 et 130: 


1251=14+1 
LIST 
100 PRINT ‘DONNEZ UN NOMBRE"; 


110 INPUT A 

120 PRINT ‘VOICI SON CARRE"; À : A 
1251=1+1 

130 IF À > 0 THEN GOTO 100 





Mais direz-vous, quelle valeur donner au compteur avant de commencer ? || suf- 
fit de le «mettre à zéro» avec une instruction telle que: 


1=0 


Il faut placer cette instruction avantlaligne 100. Nous lui choisissons par exemple 
le numéro 90. 


Enfin, nous voulons faire écrire la valeur de | lorsque le programme «sort» de 
la boucle. Pour cela, nous ajoutons une instruction après la ligne 130, par exem- 
ple en 140: 


901 = 0 
140 PRINT ‘JE VOUS AI CALCULE": |; “CARRES" 


LIST a 

901 = 0 

100 PRINT ‘DONNEZ UN NOMBRE" CE same ? 
+ 1 sur le compteur! 

110 INPUT À 





_— 


120 PRINT ‘VOICI SON CARRE"; À * À 
SISTER T. ET 


130 IF À > 0 THEN GOTO 100 Valeur du compteur. 


140 PRINT “JE VOUS AI CALCULE"; |; “CARRES" 
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Exécutons ce programme : 


RUN 
DONNEZ UN NOMBRE ? 45 
VOICI SON CARRE 2025 


DONNEZ UN NOMBRE ? 27 


VOICI SON CARRE 729 LE ai Des comple Normal non! 3 
DONNEZ UN NOMBRE ? 0 dd 


VOICI SON CARRE 0 
JE VOUS AI CALCULE 3 CARRES 





Pour faire le nombre de tours que l’on veut 


Maintenant que nous savons compter, nous pouvons également imposer un 
nombre de tours de boucle. Voyez ce programme qui écrit quatre fois BON- 
JOUR : 










NEW 


100N=20 — 
110 PRINT "BONJOUR" 






Mise à 0 ) 


















RON=N+T 
130 IF N < 4 THEN GOTO 110 


RUN 
BONJOUR 
BONJOUR 
BONJOUR 
BONJOUR 









EE, 
+ 1 sur le compteur. à 









DS 


Pa = 
(, Si moins de 4 tours, on continue. 
D Or ns 






Vous pouvez aussi écrire votre programme de facon à ce que Basic vous 
demande le nombre de tours que vous voulez faire. Ainsi ce programme vous 
calcule autant de carrés que vous le souhaitez: 
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Vous demande combien 
NEW de calculs vous voulez faire. 
100 PRINT “COMBIEN DE CARRES"': 


110 INPUT NC 


120 1.5 0: — fa — 








130 PRINT ‘DONNEZ UN NOMBRE"; 
140 INPUT À 








150 PRINT ‘VOICI SON CARRE"; À * À 
DIS Et 





170 IF 1 < NC THEN GOTO 130 





Si nombre de tours insuffisant, 
on continue. 


RUN 
COMBIEN DE CARRES ? 2 
DONNEZ UN NOMBRE ? 37 


VOICI SON CARRE 1369 
DONNEZ UN NOMBRE ? 42 
VOICI SON CARRE 1764 





Quand on ne sait pas compter 


Utiliser un compteur, c'est bien! Encore faut-il bien placer: 


— l'instruction qui lui donne sa valeur «initiale » (0 dans nos précédents exem- 
ples). 


— l'instruction qui fait avancer le compteur. 
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Faites-vous la main 


* Essayer de prévoir ce que font chacun de ces programmes. Vérifiez-le. 


e NEW e NEW 
100N=0 100N =0 
110 PRINT BONJOUR" 110 PRINT “BONJOUR'» 
120N=N+1 120 IF N < 4 THEN GOTO 100 
130 IF N < 4 THEN GOTO 100 130N=N+1 
e NEW 
100N =0 
110 PRINT BONJOUR" 
TO0N=N#+2 


130 IF N < 4 THEN GOTO 110 


Restez branchés 


Comment va réagir Basic si vous lui demandez de se brancher à une ligne qui 
n'existe pas? Essayez ce programme : 


NEW 
901 = 0 


110 PRINT "BONJOUR" 





1201=1+1 


130 IF 1 < 4 THEN GOTO 100 mas où est a igne 100? ÿ 
ai CAE 
BONJOUR 

Line does not exist in 130 








Basic exécute d'abord les lignes 90, 110 et 120. L'instruction 130 lui demande 
de revenir en 100. Comme cette ligne n'existe pas, Basic vous le précise par 
un message qui signifie : 


numéro de ligne inexistant en 130 
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Utiliser le compteur dans la boucle 


Voyez ce programme: 







NEW 
100 N = 0 
110 PRINT BONJOUR"; N; "FOIS" 
I20N=N+t 
130 IF N < 4 THEN GOTO 110 
RUN 
BONJOUR 0 FOIS 
BONJOUR 1 FOIS 
BONJOUR 2 FOIS 
BONJOUR 3 FOIS 











Ecrit la valeur du compteur N après chaque 
« BONJOUR». 



















En quelque sorte, il «numérote» chaque « BONJOUR » qu'il nous écrit. Mais, 
peut-être aimeriez-vous que le premier BONJOUR porte le numéro 1. Facile, 
direz-vous, il suffit de donner au départ la valeur 1 à N. Essayons: 


100N=1 
RUN 


BONJOUR 1 FOIS 
BONJOUR 2 FOIS 
BONJOUR 3 FOIS 





Cette fois on commence bien à 1, mais on s'arrête à 3 (comme tout à l'heure). 
Ce qui ne nous fait plus que 3 « BONJOUR » en tout. C'est bien normal puisque 
l'instruction 130 ne revient en 110 que si la valeur de N est inférieure à 4. Pour 
obtenir 4 fois «BONJOUR » (en partant toujours de 1), il faut remplacer la condi- 
tion N < 4 par N < 5 ou, ce qui paraît plus naturel par: 


Mn ee 
re = (caractère < suivi de =) signifie 
inférieur ou égal. 


N<=4 
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Voici le programme définitif : 


100N=1 

110 PRINT BONJOUR"; N; "FOIS" 
ON=N+1 

130 IF N < = 4 THEN GOTO 110 








RUN 
BONJOUR 1 FOIS 
BONJOUR 2 FOIS 
BONJOUR 3 FOIS 
BONJOUR 4 FOIS 





EXERCICES 





1. Des deux instructions: IF et GOTO), laquelle est 


— un branchement inconditionnel? 
— un branchement conditionnel ? 


2. Que font chacun de ces programmes : 


100 PRINT ‘'SALUT" 100 PRINT SALUT" 
110 PRINT “MON AMI" 110 PRINT “MON AMI" 
120 GOTO 100 120 GOTO 110 


8. Quelle est l'instruction qui permet d'augmenter de 1 la valeur d'une variable 1? 


4. Que fourniront chacun de ces programmes: 


100 N = O 100 N = 1 
110 PRINT ‘essssst 110 PRINT ‘esse H 
120N=N +1 120N=N+1 

180 IF N < = 3 THEN GOTO 110 130 IF N < 3 THEN GOTO 110 


5. Que signifient ces messages : 
a) Type mismatch error in 150 
b) Line does not exist in 200 


6. Comment interrompre un programme : 
a) lorsqu'il attend une réponse à INPUT 
b) dans les autres cas. 


VI. Pour faire 
des boucles 
sans compter 


C'était au temps où l’on comptait les tours 


Nous avons vu comment répéter des instructions en comptant le nombre de 
tours de boucle à l’aide d'un compteur. 


Par exemple, dans ce programme: 









DER ONE NN ONE 
On donne au compteur | sa valeur initiale t 
AA A <a 
Instructions à répéter. 
[es Le a 
7 (On passe à la valeur suivante du compteur. 


100 ! = + 
110 PRINT “JE M'APPELLE..." | 
120 PRINT“. AMSTRAD" | 
1301=14+1 : 
40 IF 1 < = 10 THEN GOTO 110 



































On exécute 10 fois les instructions 110 et 120. La première fois, le compteur | 
vaut 1 ; la seconde fois, il vaut 2, et ainsi de suite jusqu'à 10. 
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La boucle automatique 


Basic vous offre une manière plus simple d'écrire le programme précédent: 


Signifie « pour ». 












Nom du compteur. 





100 FOR 1 = 1 TO 10 
110 PRINT “JE M'APPELLE..." 
120 PRINT “.… AMSTRAD" 
130 NEXT | 





eo à ES en 
Première valeur du compteur 
PNR RS 













Dernière valeur du compteur 


L'instruction 100 signifie «Pour | allant de 1 à 10». Elle indique le début d'une 
«boucle »; elle donne le nom du compteur et elle fixe ses valeurs de début et 
de fin. L'instruction 130 signale à Basic qu'il doit passer à la valeur suivante de 
l. Si celle-ci ne dépasse pas la limite fixée par l'instruction FOR (ici 10), Basic 
reprend l'exécution des instructions de la boucle (110 et 120). 


Pour bien voir ce qui se passe 


Voici un autre programme qui vous montre le fonctionnement des instructions 
FOR et NEXT : 








NEW 
100 PRINT “ON VA COMMENCER" 
110 FOR K = 1 TO 3 
120 PRINT “. TOUR NUMERO“: K 
130 NEXT K 
140 PRINT “C'EST FINI“ 
RUN 
ON VA COMMENCER 
… TOUR NUMERO ! 
. TOUR NUMERO 2 
.. TOUR NUMERO 3 
C'EST FINI 










Basic exécute d'abord l'instruction 100. 

















Puisil répète 120, en donnant successivement 
à K les valeurs t, 2 et 3. 














Enfin, il exécute 10.3 
din Ce 
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Attention à bien placer le NEXT 


C'est l'instruction NEXT qui précise jusqu'où s'étend la boucle. Comparez ces 
deux programmes : 


100 FOR I = 1 T0 3 

110 PRINT BONJOUR" 
120 NEXT | 

130 PRINT MONSIEUR" 


100 FOR 1 = 1 TO 3 

110 PRINT "BONJOUR"; 
120 PRINT MONSIEUR" 
130 NEXT | 











RUN 
BONJOUR MONSIEUR 
BONJOUR MONSIEUR 
BONJOUR MONSIEUR 


RUN 
BONJOUR 
BONJOUR 
BONJOUR 
MONSIEUR 





A chaque FOR son NEXT 


Pour l'instant, nos programmes ne comportent qu'une seule boucle. C'est pour- 
quoi vous ne voyez peut-être pas pourquoi Basic vous impose de donner le nom 
du compteur après le mot NEXT. Mais, même dans ce cas, il vous faut prendre 
garde à donner le même nom dans FOR et NEXT, sinon... 






NEW mo avez dit que votre” , 
Ken compteur s $ ‘appelait L. 
100 FOR | = 1 TO 10 


110 PRINT “SUSPENS...“ 77 Et vous demandez là valeu > 
HT ae & suivante de J!'_ 
120 NEXT J ane ee 

Ele Égnie— 
Unexpected NEXT in 120 #5 MENT Naenau si ire 1à 120) 
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@) Faites-vous la main 


* Essayez de prévoir ce que produit ce programme, puis vérifiez-le : 
100 PRINT ‘‘QUEL EST VOTRE NOM"; 
110 INPUT N$ 
120 PRINT HELLO" 
130 FOR C = 1TO 4 
140 PRINT N$ 
150 NEXT C 
160 PRINT ‘COMMENT ALLEZ-VOUS" 


* 


Même question en remplaçant la ligne 140 par: 
140 PRINT NS; 


* 


Même question en ajoutant: 
155 PRINT 


* 


Même question avec ce programme : 
100 PRINT “TABLE DES 7" 

110 FOR I = 1 TO 10 

120 PRINT |; “FOIS 7 =":;1+7 
130 NEXT 1 


Pour marquer un temps d’arrêt 


Essayez ce programme : 










NEW 
100 INPUT N =— 
110 PRINT “HELLO” 
120 FOR | = 1TON) 
130 NEXT | 

140 PRINT ‘COMMENT ALLEZ-VOUS" 









Vous demande une valeur. 






Boucle ne contenant rien. Mais on la parcourt 
«N» fois. 








avec différentes réponses : 
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10 tours pour rien ça ne se voit pas beaucoup. 


COMMENT ALLEZ-VOUS 
RUN 
? _1000 
HELLO 
se 
COMMENT ALLEZ-VOUS 







——— 


SE 
Mais 1000 tours, ca prend environ 1 seconde. 











Bien sûr, une boucle vide comme celle formée par les instructions 120 et 130, 
cela semble inutile. Mais, il faut quand même un petit peu de temps à Basic pour 
la parcourir; il faut bien qu'il ajoute 1 au compteur, qu'il l'examine et qu'il 
revienne en 100. Vous voyez que pour parcourir 1000 fois cette boucle, il faut 
environ une seconde. 


À quoi bon faire des boucles vides? Tout simplement pour marquer un temps 
d'arrêt comme dans notre exemple. Dans certains cas, cela vous servira à ralen- 
tir quelque chose ; par exemple, dans un jeu, vous pourrez ainsi ralentir le dépla- 
cement d'un mobile. Nous en rencontrerons des exemples par la suite. 


Plusieurs instructions pour un même numéro 


Jusqu'ici, pour faciliter la compréhension, nous n'avons placé qu'une instruction 
derrière un numéro. Votre Amstrad accepte que vous en placiez plusieurs en 
les séparant par deux points (:). Par exemple, ces deux programmes fournissent 
la même chose: 






Ces deux instructions 
sont regroupées. 


100 À = 15:B = 25 
110 PRINT À, B 
120 PRINT : PRINT “SOMME”; À + B 


Celles-ci 
également 


\ 
\ 







100 À = 15 
110B = 25 
120 PRINT À, B 

130 PRINT 

140 PRINT SOMME": À +B 
RUN 
15 
SOMME 28 





















25 
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On dit parfois qu'on a placé plusieurs instructions sur une même «ligne ». Il s’agit 
d'une ligne pour Basic, mais pas obligatoirement d'une ligne d'écran. Nous 
avions déjà dit qu'une instruction Basic pouvait occuper plusieurs lignes d'écran 
(exactement deux). Vous voyez maintenant qu'une «ligne» d'un programme 
Basic peut comporter une ou plusieurs instructions (séparées par «:» et s'éten- 
dre sur une à six lignes d'écran. 


(?) Faites-vous la main 
7 * Essayez de prévoir ce que produisent chacun de ces programmes. Vérifiez-le. 


e 100 PRINT “VOTRE NOM": INPUT N$ 
110 PRINT: PRINT 
120 PRINT “HELLO: PRINT N$ 


© 100 PRINT ‘VOTRE NOM: INPUT N$ 
110 FOR I = 1 TO 1000: NEXT | 
120 PRINT : PRINT : PRINT 
130 PRINT “VOUS VOUS APPELEZ VRAIMENT" 
140 FOR I = 1 TO 2000: NEXT | 
150 PRINT : PRINT N$ 





EXERCICES 


1. Ecrire un programme qui vous demande quelle table de multiplication vous voulez 
et qui vous l'affiche. Inspirez-vous de ce que vous avez vu dansle «faites-vous la main» 
de la page... 


2. Réaliser un programme qui vous affiche les carrés des vingt premiers nombres entiers. 


3. Ecrire un programme qui: 
— affiche «BONJOUR » 
attend environ 1 seconde 
— affiche «UN INSTANT SVP.» 
— attend environ 5 secondes 
— efface l'écran 
— affiche «JE M'APPELLE AMSTRAD » 


4. Que signifie le message : 
Unexpected NEXT in 220 
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VII. Pour prendre 
une décision : 


Au chapitre V, nous avons appris à utiliser l'instruction IF pour réaliser des bour- 
cles. Ainsi, par exemple, nous avons employé : 


(F1 < = 5 THEN GOTO 110 
qui signifie : si la valeur de | est inférieur ou égale à 5, alors revenir en 110. 


Mais nous allons voir qu'il existe d'autres utilisations de l'instruction IF. 


Pour prendre une petite décision 


Tapez ce programme : 






NEW 


+00 PRINT “DONNEZ UN NOMBRE": —Éiau demande ne valu) 
HI INPUT N =——— 


120 IF N > 100 THEN PRINT “GRAND NOMBRE" 





130 PRINT "MERCI" 


Cette fois, l'instruction 120 signifie : si la valeur de N est supérieure à 100, alors 
exécuter l'instruction: 


PRINT “GRAND NOMBRE" 
puis passer à la suite, c'est-à-dire la ligne 130. Si, par contre, la condition n'est 
pas vérifiée, passez immédiatement à l'instruction suivante. 
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Vérifions cela en exécutant plusieurs fois notre programme : 


300 est supérieur à 100. On exécute donc l'instructio 
PRINT « GRAND NOMBRE ».. 




















RUN 

DONNEZ UN NOMBRE ? _300 

GRAND NOMBRE sai pes aile 
MERGL 5 





RUN 
DONNEZ UN NOMBRE ? 15 
MERCI 





300 n'est pas supérieur à 100... 


On passe à la suite. 


Voici un autre exemple où l'on compare, cette fois, des chaînes de caractères: 









EE 













NEW 
100 PRINT “QUEL EST VOTRE NOM 
110 INPUT NS 
120 IF NS = “LAURENCE" THEN PRINT “JOLI NOM 
130 PRINT “AU REVOIR“ 






Si N$ contient la chaîne 
LAURENCE, on écrit 
JOLI NOM. 



















PIERRE est différent 






RUN de LAURENCE... On passe 
RE à la suite. 

QUEL EST VOTRE NOM 

? PIERRE 











AU REVOIR 
RUN 
QUEL EST VOTRE NOM 
? LAURENCE 
JOLI NOM 
AU REVOIR <— 







Cette fois N$ contient 
LAURENCE. On écrit 
«JOLI NOM»... 













… @t On passe à la suite. 
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(D) Faites-vous la main 


* Essayez de prévoir ce qui fournira ce programme (vérifiez ensuite) 
100 INPUT N1, N2 
110 IF N1 < N2 THEN PRINT “DANS L'ORDRE" 
suivant que vous lui répondez: 
e 10,15 
e 25,12 
° 13,13 


* 


Essayez de prévoir ce que fournira ce programme (vérifiez) 
100 INPUT N1, N2 

110 1F N1 = 2 + N2 THEN PRINT BRAVO" 

suivant que vous lui répondez: 

e 25,15 

e 80, 40 

e 10,20 

0,0 

e 15,15 


*# 


Essayez de prévoir ce que fournira ce programme : 
100 PRINT “DITES OUI": INPUT R$ 

1101FR$ = “O" THEN PRINT "MERCI" 

suivant que vous répondez : 

e OUI 

e NON 

0 


# 


Essayez de prévoir ce que fournira ce programme (< > signifie « différent de») 
100 PRINT “DITES OUI": INPUT R$ 

1HOIFR$ <> “OUI THEN PRINT “AH BON" 

Suivant que vous répondez: 
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Pour choisir entre deux possibilités 


Essayez ce programme : 







NEW 
100 PRINT “DONNEZ UN NOMBRE": 
110 INPUT N 
120 IF N > 100 THEN PRINT “GRAND NOMBRE" 
130 IF N < = 100 THEN PRINT “PETIT NOMBRE“ 
140 PRINT “MERCI 
RUN 
DONNEZ UN NOMBRE ? 80 
PETIT NOMBRE 
MERCI 
RUN 

DONNEZ UN NOMBRE ? 120 
GRAND NOMBRE 
MERCI 


















Vous demande une valeur. 




















Ecrit « GRAND NOMBRE » 
si cette valeur est 
supérieure à 100. 



















Ecrit «PETIT NOMBRE » 
dans le cas contraire. 









&)) Faites-vous la main 


l « Dites ce que fournira le progamme précédent si vous répondez: 
e 300 
e 100 
Vérifiez. 
* Mêmes questions si l'on remplace la ligne 130 par: 
130 IF N < 100 THEN PRINT ‘’PETIT NOMBRE" 
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Connaissez-vous le mot de passe ? 


Essayez ce programme: 







Vous affiche le mot de passe. 


Attend un instant puis efface 
l écran. 


da (is ner) 
D 


NEW 
100 P$ = ‘CPC 464" 
110 PRINT ‘VOICI LE MOT DE PASSE" 
120 PRINT PS 
130 FOR 1 = 1 TO 1000: NEXTI 
140 CLS 

150 PRINT “QUEL EST LE MOT DE PASSE" 
160 INPUT RS 
170 IF R$ = P$ THEN PRINT “OK-ENTREZ" 
180 IF R$ < > P$ THEN PRINT ‘ENTREE INTERDITE" 




































AUN 
VOICI LE MOT DE PASSE 
CPC 464 


QUEL EST LE MOT DE PASSE 
? AMSTRAD 
ENTREE INTERDITE 


RUN 
VOICI LE MOT DE PASSE 
CPC 464 


QUEL EST LE MOT DE PASSE 
? CPC 464 
OK:-ENTREZ 
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Pour faire des choix plus importants 
L'instruction IF nous permet de choisir entre: 


— exécuter une instruction, par exemple: écrire «GRAND NOMBRE » 
— ne pas l'exécuter. 


En combinant deux instructions IF, nous pouvons choisir entre deux instructions, 
par exemple: 


— écrire «GRAND NOMBRE » 
— écrire «PETIT NOMBRE » 


Mais, comment choisir entre deux possibilités qui ne peuvent pas s'écrire en une 
seule instruction? || faut alors combiner les instructions IF et GOTO. Nous en 
rencontrerons des exemples par la suite. 
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VIIL. Jouer avec le hasard 





Beaucoup de jeux de société font intervenir le hasard: jeux de dés, de cartes, 
de roulette, etc. Votre Amstrad ne peut pas lancer un dé pour vous. Pourtant, 
il sait faire quelque chose de comparable : choisi au hasard l'un des nombres 
1,2,3,4,5ou6. 


En fait, vous verrez qu'en Basic, vous pourrez choisir beaucoup de choses au 
hasard: couleur, lettre, emplacement, son, etc. Et tout cela à l'aide d'un même 
mot Basic: RND. 
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Un mot magique : RND 


Essayez ce programme : 











NEW 
100 PRINT “COMBIEN DE VALEURS" 
110 INPUT N 
120 FOR | = 1TON 


130 PRINT RND(1) 





Caprice du Basic ! 1! faut placer un nombre ici, 
mais il ne «sert à rien». 















L'instruction 130 sera donc répétée 4 fois. 












140 NEXT | 
RUN 
COMBIEN DE VALEURS ? 4 Une valeur de RND(+). La votre est sûremen 
[ différente. ur 
0.456788761 RE 






0.787321132 
0.129431861 
0.563943282 











Une autre valeur. 







RND est l'abréviation du mot anglais «RaNDom»> qui signifie «au hasard». 


RND(1) signifie : choisir au hasard un nombre décimal compris entre O et 1. La 
valeur exacte 1 ne peut jamais être obtenue. 


y) Faites-vous la main 


* Essayez le programme précédent avec de plus grandes valeurs pour N. Pour voir davantage de 
choses sur l'écran, ajoutez une virgule ou un point-virgule à la fin de l'instruction 130. 


* Voyez ce qui se passe lorsque vous remplacez la valeur 1 de la ligne 130 par autre chose: 2, 5, 
10, 50... 


* Voyez ce qui arrive si vous écrivez RND au lieu de RND(1). 


Pour faire rouler un dé 





Comment transformer le programme précédent pour qu'il joue aux dés pour 
nous ? Autrement dit, comment faire pour qu'il nous fournisse l’un des nombres 
1,2,8,4,5ou 6? 
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Pour l'instant, direz-vous, nous ne savons obtenir (avec RND) que des nombres 
décimaux compris entre 0 et 1. Nous allons progressivement modifier le pro- 
gramme précédent pour arriver au résultat voulu. 


° Multiplions par 6 


Si vous remplacez l'instruction 130 par: 


130 PRINT 6 + RND(1) 7e una ua ent 0e 1°) 


Le multiplier par 6. 





vous obtenez alors des nombres décimaux compris entre O et 6. Vérifions-le : 






LIST 
100 PRINT “COMBIEN DE VALEURS"; 
110 INPUT N 


RUN 
COMBIEN DE VALEURS ? 4 
4.90711388 
1.12520621 
3.29855115 
2.30889658 







120 FOR | = 1 TON 
130 PRINT 6 + RND(1) 
140 NEXT | 










Les vôtres sont différentes. 





° Supprimons les décimales 


Nous allons utiliser une nouvelle fonction Basic: INT. Ce nom est l'abréviation 
de INTeger qui signifie : «entier». Voyez son rôle en essayant ces instructions 
en mode direct (ce qui vous évitera de détruire votre programme) : 


PRINT INT (4.253) 
4 


PRINT INT (3.95) 
3 
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Appliquons donc cette fonction à la quantité RND(1). Pour cela, remplacons la 


ligne 130 par: 
130 PRINT INT (6 + RND(1)) Nombre décimal compris entre 0 et 6. 
7 i 
Nombre entier de 0 à 5. 


Nous obtenons ainsi un nombre entier comprisentre O0 et 5. La valeur 6 ne pourra 
jamais être obtenue car, ne l'oubliez pas, RND(1) ne fournit jamais la valeur 
exacte 1. Vérifions tout cela: 


LIST 
100 PRINT ‘’COMBIEN DE VALEURS": 
110 INPUT N 


RUN 
COMBIEN DE VALEURS ? 6 


120 FOR 1 = 1 TON 
130 PRINT INT (6 + RND(1)) 
140 NEXT | 


ous pouvez en demander plus. 





e Ajoutons 1 


Cette fois, nous touchons presque au but. Il nous suffit d'ajouter 1 au résultat 
pour obtenir un nombre entier entre 1 et 6. Remplaçons la ligne 130 par: 


RS 
120 PRINT 1 + INT (6 AND) CMP TEE > 
 , 


Nombre entier de 1 à 6. RUN 


COMBIEN DE VALEURS ? 6 
4 
5 


LIST 
100 PRINT ‘’COMBIEN DE VALEURS" 
110 INPUT N 





1 
120 FOR J = 1TON 


130 PRINT 4 + INT (6 + RND(1) 
140 NEXT | 
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Faites-vous la main 


* Essayez de modifier le programme précédent pour qu'il fournisse des nombres entiers entre 1 et 
10, entre 1 et 50, etc. 


* Essayez de prévoir ce que vous obtiendrez en modifiant ainsi la ligne 130: 
130 PRINT 2 + INT (6 + RND(1)) 
Vérifiez-le. 


* Même chose avec: 
130 PRINT 10 + INT (90 + RND(1) 


Pour jouer à pile ou face 


Nous savons fabriquer des nombres au hasard. Comment faire un tirage pile 
ou face ? Il nous suffit d'attribuer une valeur à chaque cas. Par exemple, nous 
pouvons convenir que : 


1 représente PILE ES ce 
2 représente FACE A. KA z Nu 


Tirer à pile où face reviendra alors à tirer au hasard un nombre entier entre 1 
et 2, ce que nous savons faire. 


Pour compter les coups 
Nous pouvons maintenant écrire un programme qui : 


— nous laisse choisir le nombre de tirages 
— compte le nombre de «pile» et le nombre de «face ». 


N: nombre de tirages à réaliser. 
NP: compteur du nombre de «pile ». 
NF: compteur du nombre de «face». 


T valeur tirée: 1 ou 2. 






NEW 
100 PRINT “COMBIEN DE TIRAGES“: 
HO INPUT Ne" 
120 NP = O:NF = 0 
130 FOR 1 = 1TON 
140 T = 4 + INT (2 + RND(1) 
150 IF T = 1 THEN NP = NP +! 
160 IF T = 2 THEN NF = NF + 1 
70 NEXT | 

180 PRINT “PILE: : NP; ‘FOIS 
190 PRINT “FACE: : NF: “FOIS | 


















SiT vaut 1, on ajoute 1 au compteur de« pile ». 


SiT vaut 2, on ajoute t au compteur de «face ». 


Affichage des résultats. 










DS 
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RUN 
COMBIEN DE TIRAGES ? 100 
PILE:47FOIS ) 


ir Poe 


FACE: 53FOIS 











Vous’obtiendrez probablement d’autres 
valeurs. 


Pour s’entraîner au calcul mental 


Voici un programme d'entraînement à la pratique de l'addition. 
ne PI NN Te Are 
Pour avoir un entier compris entre 1 et 99. | 


Ù LL AAA 24 AL AAAS 











NEW 
100 N1 = 1 + INT (99 * RND(1) 
110 N2 = 1 + INT (99 * RND(1)) 
120 S = N1 + N2 

130 PRINT “COMBIEN FONT*_ 
140 PRINT Nt : PLUS" : N2 —— 
150 INPUTR 

160 IFR = STHEN PRINT "EXACT" | 
{70 IFR <> STHENPRINT “NON“ | 








Même formule... mais une valeur (peut être) 
différente. 

On vous interroge. 
On vous écoute ! 


— 








































Quelques essais: 


RUN 

COMBIEN FONT 
14 PLUS 29 

133 

NON 


RUN 

COMBIEN FONT 
73 PLUS 39 

7112 

EXACT 
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En fait, le programme ne propose qu'une seule opération à chaque fois. Faisons- 
le se poursuivre jusqu'à ce que vous souhaitiez vous arrêter. Comptons les 
«bonnes» et les «mauvaises » réponses : 


NS TN 
{Mise à zéro des Compteurs. ? 
— _ 

























NEW VAR A LR 
ONE = O:NF= 0. Nes 

/ On tire 2 nombres au rad) 
110 Nt = 1 + INT (99 * RND(1) ES a SR 
120 N2 = 1 + INT (99 + RND(1) LT no 
130 S = Nt + N2 (On vous interroge ) 
140 PRINT : PRINT “COMBIEN FONT  } L à Se . 
10 PRINT N1: "PLUS": N2 | vastes à 
160 INPUT R — né 0 


nn 


170 IFR = S THEN GOTO 210 —— 


ER) en votre éme) 
180 PRINT “FAUX" Le 


ba 
190 NF = NF +1 

200 GOTO 230 
2IOPRINT “EXACT: LS 
ZONE = NE+t | Te es me) 
230 PRINT “VOULEZ-VOUS CONTINUER": ne 
240 INPUT R$ EC ci a) 
250 IF RS = “O“ THEN GOTO #10 ù 

260 PRINT : PRINT “VOUS AVEZ OBTENL  — 
270 PRINT NE : “REPONSES EXACTES" 

280 PRINT NF : “REPONSES FAUSSES" 





POV 


/ 
{Elle est fausse 


LL 





Cents 











TT a be 


‘a Oui - retour en 110. 











- voilà votre scor 
GNon voilà voire sco e) 
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9 Faites-vous la main 
* Essayez de prévoir ce que fera le programme précédent si vous remplacez, en 110 et 120, la valeur 
99 par 9. Vérifiez-le. 
* Même question avec la valeur 999. 


* Même question en modifiant ainsi les lignes 110 et 120: 


110 Nt = 10 + INT (90 * RND(1) 
120 N2 = 10 + INT (90 + RND(t)) 


* Même question avec: 


110 N1 = 100 + INT (900 + RND(t)) 
120 N2 = 10 + INT (90 + RND(1)) 


* Modifiez le programme pour qu'il vous propose des soustractions. 


* Modifiez le programme pour qu'il vous propose des multiplications. 


Le jeu du devin 


Après le calcul mental, la récréation! Voici un programme de jeu. Il choisit un 
nombre «en secret» et il vous demande de le deviner. Pour chacune de vos 
réponses. il vous précise si vous avez visé trop haut, trop bas ou juste! 


Tirage du sobre ser » 
dans NS. 







NEW 
100 NS = 1 + INT (100 + RND(1) 
110 PRINT “DEVINEZ MON NOMBRE" 
120 PRINT “QUE PROPOSEZ-VOUS": 
130 INPUT R 


140 IF R < NS THEN PRINT “TROP PETIT* 







Un” 








fore pop a R ) 


_€ Elle est trop Dalle 


MR TA re ca 





















a 






RNA 


‘Elle est tro) rande ; 
er pg 


AAA 























150 IF R > NS THEN PRINT “TROP GRAND” =—" Car A 
160 IF R < > NS THEN GOTO 120 «— Lx Si elle est incorecte, on 
170 PRINT “BRAVO. C'EST CA ê ss en 120 et on cont inue 


* Vous avez vu juste! /” 
Vous avez vu juste! / 
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Faisons un essai: 


RUN 
DEVINEZ MON NOMBRE 


QUE PROPOSEZ-VOUS ? 50 
TROP GRAND 

QUE PROPOSEZ-VOUS ? 25 
TROP PETIT 





BRAVO, C'EST ÇA 


QUE PROPOSEZ-VOUS ? 37 —— —{ Vous aurez peut-être moins de chance que nous F 
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IX. Pour avoir 
du caractère 


Une nouvelle façon de fabriquer des caractères 


Nous avons appris à manipuler des caractères à l'aide de chaînes. Par exemple, 
pour écrire à l'écran le caractère B, nous pouvons utiliser ces instructions : 


C$ = ‘B" 
PRINT C$ 


où encore, plus simplement : 
PRINT “B" 


Mais, vous pouvez obtenir la même chose avec 


PRINT CHRS (66) 


B 
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CHRS (66) signifie : le caractère ayant pour numéro 66. En fait, Basic attribue 
à chaque caractère. une valeur différente qu'on appelle son «code ». Faisons 
quelques autres essais, toujours en mode direct: 


PRINT CHRS (65) _ 

A F6 correspond à À. ge 
on à 8...) 

PRINT CHRS (67) A ART 

C 

Le. 7 
PRINT CHRS (90 re 
As EU : 87aC.. 


Z — 

PRINT CHRS (48) 

(0) ‘ ss 
PRINT CHRS (42) rs 


* 





Pour en savoir un peu plus, nous pouvons écrire un programme qui nous 
demande un code et qui nous affiche le caractère correspondant: 


PR 2 D POS 
Vous demandent le code. Ÿ 
NEW MT : 

N = _ = D 
100 PRINT “CODE”: eu : __< Prévoyez bien un espace ii. À 
110 INPUT C 
DISUMEULES nE à 
120 PRINT ‘CARACTERE :_"; CHRS (C}e——t#"""T Afiiche le caractère correspondant. ; 
ue a TT ee LAC 7 
130 GOTO 100 nn. 
é Eton recommence.) 
D at Cr AA 


Ge Er 








= 


RL 


PNA NT Ne ns 





RUN 
CODE ? 35 


CARACTERE : u 
CODE ? 43 
CARACTERE : + 
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Tout cela paraît assez naturel. Mais essayons d'autres valeurs: 
("Rien ne S'affiche.  * à, 
S, Mais vous entendez un «bip»._ 











CODE ? 7 ANR A ns RES 
CARACTERE: + 

7 AT ES n ac ) 
CODE ? 231 ; Ne cherchez pas, vous ne trouverez pas ? 
CARACTERE : @ + {cette «balle» sur le clavier. + 7 
CODE ? 212 
CARACTERE : Fe dérgne 

———— ___{ nice triangle... 

CODE ? 249 een 
CARACTERE :? 
CODE ? : Break : Ds > + ni ce bonhomme. \ 


Re re 
Break in 110 
PR ER. ARE 
Pa . SR 
Ici, nous avons interrompu 
Cle programme en tapant ESC) 
A — 2 — 


Ready 


(?) Faites-vous la main 


* Si vous êtes curieux, vous pouvez essayer d'autres valeurs de votre choix. Si vous rencontrez un 
problème, vous risquez d'être obligé de taper CTRL + SHIFT + ESC: vous perdrez alors votre 
| programme que vous devrez retaper. 


* Voyez ce qui se passe quand vous fournissez une valeur supérieure à 255 ou négative. 


Vous constatez qu'il existe 256 codes différents. La plupart d'entre eux (compris 
entre 32 et 255) correspondent à un véritable caractère que l'on peut afficher 
à l'écran. Certains d'entre eux (de 128 à 255) n'ont pas leur équivalent sur le 
clavier : ils permettent de «dessiner » pas mal de choses. Enfin, les codes 0 à 
31 ne correspondent pas à un caractère affichable : ils réalisent une certaine 
fonction (bip, déplacement de curseur, ..) 


Pour tirer des lettres au hasard 


Nous avons appris à tirer des nombres au hasard. Mais, dans certains program- 
mes (de jeux, par exemple), vous aurez besoin de tirer des lettres au hasard. 
Nous allons voir comment y parvenir grâce à la fonction CHRS. 


Pour cela, il vous suffit de savoir que les codes des vingt-six lettres À à Z vont 
de 65 à 90. Il est facile de le vérifier avec ce petit programme : 
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100 FOR | = 65 TO 90 
110 PRINT CHRS (: 


120 EXT | 
RUN 
ABCDEFGHIJKLMNOPQRSTUVWXYZ 





Comment tirer une lettre au hasard. Il suffit de tirer son code au hasard. Cela 
revient à choisir un nombre entier compris entre 65 et 90. Voici un programme 
qui nous affiche une suite de 20 lettres tirées au hasard parmi l'alphabet: 


'É 
F] 





E) 


ROC L 
Nombre entier compris entre O et 25. 









100 FOR | = 1 TO 20 
VE TN 
110 C = 65 + INT (26 - AND(t)) 
















AAC INT Name 
100 PRINT CHRS (QI Ajouté à 65, cela donne un nombre compris | 
120 PRINT CHRS (C). “entre 65 et 90 pure 
130 NEXT | : is 


RUN 
NHPASTFKBLXVTOUVNUZJ 





ANS D 


7 Ce serait bien surprenant que votre hasard] 
f Soit le nôtre. A x 4 A A 
RAS 





AA 


Quand INPUT ne convient plus. 


Jusqu'ici, votre seul moyen de communiquer une information au programme 
résidait dans l'instruction INPUT. Or, celle-ci n'est pas toujours pratique, notam- 
ment dans les jeux vidéo. En voici différentes raisons: 
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e Elle affiche un point d'interrogation à l'écran puis elle reproduit ce que vous 
tapez au clavier. Dans un jeu d'animation, cela risque fort d'être du plus mau- 
vais effet. 


+ Elle vous oblige à taper sur «RETURN » pour chaque information. Imaginez- 
vous en train de commander ainsi le déplacement d'un mobile sur l'écran: 
un petit déplacement à droite, RETURN, un petit déplacement à gauche, 
RETURN... Pratique, non! 


+ Enfin, elle interrompt l'exécution du programme jusqu'à ce que vous ayez 
fourni votre réponse. Elle vous oblige donc toujours à taper quelque chose. 
Là encore, dans de nombreux jeux, vous avez besoin de savoir, par exemple, 
si le joueur a demandé un tir. Pour cela, vous examinez si une certaine touche 
(convenue à l'avance) a été pressée. Mais si elle ne l'est pas, vous ne passez 
surtout pas votre temps à attendre qu'elle le soit: sinon ie jeu s'arrêterait 
jusqu'à ce que vous déclenchiez un tir! 


Nous allons voir comment résoudre tous ces problèmes. 


La fonction INKEY$ 


Elle va vous permettre de savoir si une touche du clavier est enfoncée. Elle vous 
dira même laquelle. Pour l'instant, essayez ce petit programme : 


NEW 
R$ = INKEYS 


Attention, il n'y a pas d'espace 


110 IF R$ = ‘‘“THEN PRINT “RIEN‘ entre les guillemets. Cela 
représente une «chaine vide». 


120 IF R$ < > “| THEN PRINT "TOUCHE" —_——- 
130 GOTO 100 














Il n'arrête pas d'afficher quelque chose à l'écran. Quand vous n'appuyez sur 
aucune touche, il affiche (sans cesse) «RIEN ». Dès que vous appuyez sur une 
touche, il écrit une fois « TOUCHE » puis recommence à afficher «RIEN ». Pour 
arrêter le programme, utilisez la touche habituelle ESC (2 fois). 


En fait, l'instruction 100 examine si une nouvelle touche a été pressée. Si c'est 
le cas, elle place le caractère correspondant dans R$. Dans le cas contraire, elle 
y place la «chaîne vide », c'est-à-dire une chaîne ne contenant aucun caractère. 
Puis, sans attendre, Basic passe à la suite du programme. Les instructions 110 
et 120 examinent le contenu de RS et vous affichent, soit «RIEN », soit « TOU- 
CHE ». Enfin, 130 fait recommencer le tout. 
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Remarques : 


1. Si vous laissez une touche enfoncée pendant un moment, vous allez consta- 
ter qu'elle est « prise en compte » plusieurs fois. Vous verrez apparaître « TOU- 
CHE» à nouveau. Ceci provient de ce que la plupart des touches de 
l'AMSTRAD sont «à répétition automatique». Vous l'avez peut-être déjà 
constaté lorsque vous frappez quelque chose et que vous laissez un peu 
«traîner» vos doigts sur les touches. 

2. Le caractère détecté par INKEYS n'est pas affiché. 


Examine le clavier} 
anne ca) 


Voici un autre exemple: 


100 PRINT “TAPEZ SUR UNE TOUCHE" 





———— 





120 IF R$ = ‘THEN GOTO 110 ART NS NT 
130 PRINT “OUF MERCI" nu ae touche pressée, retour a 10) 


RUN 
TAPEZ SUR UNE TOUCHE 
OUF MERCI 4 


LR EN REP 





OT 
Apparaît dès que vous pressez une touche, 


“_Le caractère tapé n' rit. > 
OU CRMETR 





Et un dernier où l'on attend que vous appuyez sur une touche bien déterminée, 
ICI «L»: 







xamine le clavier. 


Sterne pas pressée, on remet 
en 110. NS 
AA D 


A - 
ÉNepria 


apparaît que si vous frappez la touche L. 





100 PRINT ‘‘TROUVEZ LA BONNE TOUCHE" 
110 R$ = INKEYS ,___ — 
1201FR$ <> “L' THEN GOTO 110 
130 PRINT “OUF - ENFIN" =" 




























Et maintenant, place à la récréation avec deux jeux qui utilisent tout ce que nous 
venons d'apprendre dans ce chapitre. 
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Alphabet 


Ce programme vous demande de frapper, dans l'ordre. les lettres de l'alphabet. 
Chaque lettre n'apparaît que lorsque vous avez frappé sur la bonne touche. 
fMise à zér0 du «compteur 
re temps» 2 


_ 


NEW 
100T=0 —— LAN ER 

NERO 10% =— re 
120 RS = INKEYS ci 
130 IF R$ < > CHRS(C) THENT = T + 1 : GOTO 120 


REX, AS 











; PE é k À 
Tant que la touche est" » 
incorrecte. on ajoute 1 àT. 


—— 





140 PRINT R$; 


YSONEXTC Ten bbtée 
nn Ecrit la lettre LS 
160 PRINT : PRINT “VOTRE TEMPS": TT —- 


LA 





RER 

RUN 7 Lettre suivante 

ABCDEFGHIJKLMNOPQRSTUVWXYZ ns — 
—_— 


VOTRE TEMPS 1407 % érdiet! : 





? Attention à bien taper Ÿ 
(des MAJUSCULES. 


AA 


" Faites bien attention à la ligne 130. Elle signifie: 
e Sila condition R$ < > CHRS(C) est vraie. alors on exécute les deux instruc- 
tions placées après THEN: 
T=T+t 
GOTO 120 (ce qui nous ramène en 120). 
e Si la condition est fausse, on passe à la ligne suivante: 140. 

* Notez que T n'est pas un « vrai compteur » du temps écoulé. Il ne comptabilise 
ni des secondes, ni des minutes, mais seulement des tours de «boucle 
d'attente »: il mesure le nombre de fois que les instructions 120 et 130 ont été 
parcourues en attendant votre réponse. 
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Force de frappe 


Dans le même ordre d'idée, voici un programme qui va vous permettre de vous 
familiariser avec le clavier. Lui aussi vous propose des lettres à taper le plus vite 
possible : mais, cette fois. elles ne sont pas connues d'avance. C'est le pro- 


gramme qui les tire au hasard. RC EEE 
£ T: compteur de temps. ‘» 
met RAR Eee 7 
ES ST NE Lan” 

gs 
On va vous proposer 20 lettres} 


1007=0 «— ns se 


HOFORI = 11020 

120 C = 66 + INT (26 * RND(1) =— 

130 PRINT CHRS(C) = _—- —— ——+—, On écrit la etre. 
140 R$ = INKEYS eu 


NEW 


Re un MR GER cn À 
{ On tire un code au hasard. ? 
—_<_ À an 


Le S—- 







— 2 


FX 

_Attend la bonne réponse, ? 

(en complant, 7 
S.” Le 








"TS 
‘ Su 


>> 


€ Verdict! ? 
RL 


G) ; 4 
g JFaites-vous la main 


b * Si vous préférez avoir des minuscules, remplacez la ligne 120 par: 
120 C = 97 + INT (26 * RND (1) 
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X. Pour choisir 
vos couleurs 





Jusqu'ici, nous avons laissé Basic écrire en jaune sur un fond bleu. Nous allons 
maintenant vous apprendre comment jouer avec les nombreuses couleurs de 
votre Amstrad. Si vous ne disposez que d'un moniteur monochrome, cela vous 
sera également utile: simplement les différentes couleurs y apparaîtront sous 
forme de gris (ou de verts) plus ou moins brillants. 


Pour distinguer le fond du pourtour 


Vous avez certainement remarqué que Basic n'écrit que dans une partie de 
l'écran. Jusqu'ici, l'ensemble de l'écran était bleu foncé (à moins que vous 
n'ayez déjà essayé de jouer avec les couleurs !). Pour mieux distinguer la zone 
dans laquelle Basic écrit, essayez cette instruction: 

BORDER 16 
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Vous constatez que le pourtour devient rose. (Si vous ne disposez que du noir 
et blanc, vous constaterez quand même un changement de gris.) 


Votre Amstrad dispose de 27 couleurs. Chacune d'entre elles est repérée par 
un numéro allant de O à 26. Voici un programme qui les passe toutes en revue : 


$ Pour explorer ‘2 
ZX ? 
NEW | _ {les 27 couleurs.» 


s 
LEA 0 







100 FOR 1 = 0 TO 26 =— 

110 BORDER | + 

120 FOR K = 1 TO 500: NEXT K 
130 NEXT | 


Fe Bordure de couleur |. 2 
LL 4 ue d 


j Re 
7" Pour attendre } 
ç_uninstant. 7 


(F >) Faites-vous la main 


ns 


I? * Modifiez le rythme de succession des couleurs en agissant sur le nombre 500 de la ligne 120. 


_ *_ Pour vous donner la possibilité de contempler à loisir chacune des 27 couleurs, remplacez la ligne 
120 par: 
120 R$ = INKEYS: IF R$ = * ‘THEN GOTO 120 
(le programme ne passera à la couleur suivante que lorsque vous taperez sur une touche). 


* Pour connaître le numéro de la couleur, ajoutez la ligne: 
115 PRINT ‘BORDURE DE COULEUR”; | 


Pour jouer avec la couleur du texte 
Nous venons d'apprendre à choisir la couleur de la bordure. Mais, pour l'instant, 
le texte est toujours écrit en jaune sur fond bleu. Nous allons maintenant voir 


comment modifier la couleur du texte (le fond, ce sera pour bientôt. Patience, 
que diable! 
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Essayez ces instructions : Pre 
——" PEN signifie «plume». > 








SO DR tn A 





Cd v Le. L v \ à 
&_ Choisir là Fa numéro 2. 
| Ce L { AT 
® TY NÉ ETN, ds — 
TR 6 Des 4 
C'est fait! Ce texte est écrit en bleu clair. ; 
LR CA LA L_X ia 


[ Celui. Ci est ecrit avec A plume numero 3 4 
est rouge LA 


» Plume 1. C'est jaune! 


Lu 4 & 0 


à. 
< 


| } Faites-vous la main 
ho + Essayez d'autres numéros de plume. Si vous rencontrez un problème, revenez à l'état initial en 
1m tapant CTRL + SHIFT + ESC. 

* Voyez ce qui se passe avec la plume numéro 0. 


* Voyez ce qui se passe avec des numéros négatifs ou supérieurs à 15. Le message obtenu signifie : 
«numéro incorrect». 


Mais, direz-vous, nous avons 27 couleurs et nous ne pouvons choisir que parmi 
16 «plumes». Et, pire que cela, vous devez avoir la vague impression que plu- 
sieurs plumes ont la même couleur! Voici un programme qui va vous permettre 
d'y voir plus clair: 


2 GE on - > — 


éPour essayer les 16 plumes 2 
Lex x LH : 


re : £ Onécriale texte * &. 
110 FOR | = OTO 15 AT ne —Ÿ, avec la plume numéro Le ? 


SRE eA 


120 PEN e——— 
130 PRINT “PLUME NUMERO": | =— RUES 
; es 


140 NEXT | À. Pour y voir ue chos 
(en principe). 
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Si vous croyez qu'il y a des ratés, réfléchissez bien! Lorsque la «plume» a la 
couleur du «fond». il est difficile de lire le texte. (Si vous n'êtes pas convaincu, 
essayez d'écrire sur une feuille rouge avec un crayon rouge !) 


Finalement, vous obtenez en tout et pour tout quatre couleurs différentes. Ne 
vous laissez pas aller au découragement et ne reportez surtout pas votre 
Amstrad chez le vendeur ! Nous apprendrons plus tard à employer plus de cou- 
leurs. 


Pour l'instant, nous pouvons dire que tout se passe comme si vous ne disposiez 
que de 4 plumes numérotées : 0, 1, 2 et 3. Quand vous choisissez un numéro 
supérieur à 8, Basic emploie quand même l'une de ces quatre plumes. Par 
exemple, st vous choisissez 4, il prendra 0; pour 5, il prendra 1, etc. (si vous 
êtes «matheux», vous reconnaissez la fonction «modulo 4»). 


Ne confondez pas numéro de plume et numéro de couleur 
BORDER 1 

signifie faire une bordure de couleur numéro 1 (bleu). 
PEN 1 


signifie : choisir la plume numéro 1. Cette plume écrit en jaune. Si vous cherchiez 
le numéro de couleur correspondant. vous trouveriez 24 


De la même facon. la plume 0 écrit avec la couleur 1, la plume 2 avec la couleur 
20 et la plume 3 avec la couleur 6 






Numero 
de couleur 





0 


Numero 
de plume 
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Pour jouer avec la couleur du fond 


Revenez à l'étatinitial à l'aide des touches CTRL + SHIFT + ESC. Le fondrede- 
vient bleu et le texte redevient jaune. ie 


| PAPER signifie papier - 
Essayez alors ces instructions: *,, ee 
pes 





PAPER 2 — -— £ Choisir le «papier» numéro 2} 





Ready ° 
LES | . Ce texte est écrit en jaune 
Ready sur fond bleu clair 


L 


CLS 


7 {Celui-ci est écrit sur un fond rouge. : 
| À < L & " & n { + 





{_ L'écran s'efface et devient rouge. 


PEN permettait de choisir la couleur dans laquelle le texte doit être écrit. De la 
même manière, PAPER permet de choisir la couleur du fond sur lequel on va 
écrire. 


L'instruction CLS efface l'écran, mais elle conserve le dernier «papier» choisi 
(ici 3). C'est pourquoi tout l'écran devient rouge. 


g>) Faites-vous la main 


* Essayez l'instruction PAPER avec d’autres numéros. En cas de problème, revenez à l'état initial 
avec CTRL + SHIFT + ESC. 


* Voyez ce qui se passe avec des numéros négatifs ou supérieurs à 15. 


* Voyez ce qui se produit lorsque vous choisissez le même numéro pour le texte et pour le fond, par 
exemple : 


PEN 3 
PAPER 3 


* Revenez à l'état initial en tapant CTRL + SHIFT + ESC. Tapez ces instructions : 


PEN 1 
PAPER 0 


Vous constatez que les couleurs du texte et du fond ne changent pas. Cela signifie que lorsque 
vous allumez votre Amstrad ou lorsque vous revenez à l'état initial, Basic choisit la plume numéro 
{et le papier numéro 0. 
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Pour changer les couleurs 


Finalement, vous pouvez choisir pour la bordure n'importe laquelle des 27 cou- 
leurs (numérotées de 0 à 26). Par contre, pour le texte et le fond, tout se passe 
comme si vous ne disposiez que de 4 «stylos » (numérotés de O à 3). 


Au départ, votre Amstrad utilise le stylo numéro 1 pour le texte et le stylo 
numéro 0 pour le fond. Vous pouvez choisir un autre stylo pour le texte avec 
l'instruction PEN. De mêrne, vous pouvez changer le stylo utilisé pour le fond 
avec l'instruction PAPER. 


Mais les couleurs de ces 4 stylos semblent bien vous être imposées par 
l'Armstrad. Voici d'ailleurs la correspondance entre numéro de stylo et numéro 
de couleur 


À | 2 
Numéro Numéro 
de «stylo » de couleur 


— 


| Couleur 





| 
bleu 





jaune clair 





bleu clair 








rouge 








Mais, en fait, vous pouvez modifier la couleur de chaque stylo grâce à une nour- 
velle instruction: INK. Celle-ci vous permet, en quelque sorte, de changer la 


«cartouche d'encre» des stylos. 
ES CU UNE ER | 
F Signe: le stylo numéro 2 contient ? 
*, maintenant la couleur numéro 16 (rose). 
SEE À 


Le 5 RAT 


Revenez à l'état initial, puis essayez: 








INK 2,162 Le he 
EEE 19 à . 
Ready —— 6 Rien de particulier! Mais ce texte 
(est écrit avec le stylo numéro 1. 
PEN 2 ER done 
Ready . Le 


b.” 
Ecrire avec la plume nee 


L 
LR A AAA 


7 De 2 D — 
+ Ce texte est écrit en re. 
AS DAS, 
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Revenez à nouveau à l'état initial, puis essayez: 


= UE À 
_F Bari: le sù le stylo numéro 1 contient À. 
/ 


. maintenant la couleur numéro 16 (rose). ; 


& te ee cn) ut, EU Ve VU, di 










INK 1,16 —_— 


ji 






ns _ — 


Ce texte est rose. Mais tout le tx 2 


précédent l'est aussi! — ee 


Eh oui! Quand vous changez la couleur d'un stylo. vous modifiez également 
la couleur de tout ce qui a déjà été écrit par ce stylo. 





Revenez à l'état initial: Basic redonne les cartouches initiales à chaque stylo. 
Ainsi, le stylo 1 contient maintenant la couleur habituelle : le jaune. Essayez ce 
programme : PR 

6 Pour remplir l'écran ee 










100 CLS 
10 FOR = 1 TO 25 
120 PRINT “AMSTRAD À VOTRE SERVICE" 
130 NEXT | : 
140 FOR I = OTOB 

DIR +— 
160 AS = INKEYS: IF RS = “ “THEN GOTO 160 


170 NEXT | 


TS 
a Pour essayer ? 
les 27 couleurs. ) 






} 













d v 
Le stylo numéro 1 ) 
—, contient la couleur ! 
numéro |. ré 


« 


\ 




















CNT £ 


77" On attend que vous tapiez 
… Sur une touche 
= Pour continuer. 7 


REMARQUES : 


1. Ici, nous n'utilisons que deux stylos à la fois: le O pour le fond et le 1 pour 
le texte. C'est pour cette raison que nous n'avons pas à employer d'instruc- 
tions PEN ou PAPER. 


2. Après avoir exécuté ce programme, la couleur d'encre nest plus celle de 
l'état initial. Vous êtes alors peut-être tentés de taper CTRL + SHIFT + ESC. 
Cependant, si vous le faites, vous perdez votre programme! Comment 
retrouver alors la couleur d'encre initiale ? Simplement en tapant (en mode 
direct) : 


INK 1, 24 
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Faites-vous la main 


* Voyez comme le réglage de luminosité de votre téléviseur agit sur les couleurs en exécutant plu- 
sieurs fois le programme précédent. 


* Modifiez ainsi l'instruction 150 
150 INK 0, | 


Le programme ainsi obtenu vous permet de donner au fond successivement chacune des 27 cou- 
leurs. Pour retrouver la couleur de fond initiale, tapez (en mode direct) : 


INK 0, 1 


Pour mesurer vos effets 


Associer les différentes couleurs est un art parfois difficile. Voici un programme 
qui vous permet de juger de l effet produit par l'association de trois couleurs de 
votre choix: une pour le texte, une pour le fond, une pour la bordure. 
Vous choisissez 3 nn 
CB pour la bordure 


CTpourietexte  ; 
100 CLS CF pour le fond. 7 
2 Un. 


ke 

110 PRINT ‘BORD, TEXTE, FOND 
120 INPUT CB, CT, CF 
130 INK 1. CT f Le stylo numéro 1 
PRE __Y Contiendra la couleur CT.) 
140 INK O, CF \ 
150 BORDER CB 
160 FOR 1 = 1 TO 25 TS Ne 

ISERE Le stylo numéro 0 
170 PRINT BORD"; CB; "TEXTE"; CT; FOND": CF - contiendra la couleur CF.) 
180 NEXT 








%s A 


M 
Z 


ER RTS PET 





D Vo = ; AR rnre 
( : Pour remplir l'écran. 
\ Se de couleur CB ) Re URL) 
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‘| Faites-vous la main 


A 


* Essayez le programme précédent avec différentes couleurs de votre choix. 
Si votre texte devient invisible, évitez de taper CTRL + SHIFT + ESC. Vous retrouverez les cou- 
leurs initiales en tapant: 


INK 1, 24 
INK 0, 1 


(Bien sûr, il vous faudra taper la première instruction «à l’aveuglette» ; mais, si vous n'avez pas 
fait de faute, tout deviendra plus clair dès que vous appuyerez sur ENTER). 
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XI. Choisir 
son emplacement : 


FAIS-MOÏ UN DESSIN 
Ù e 


nl 
0 (| 





Jusqu'ici, nous nous sommes contentés d'écrire à l'écranligne aprèsligne. Cha- 
que nouvelle ligne « poussait » l'ensemble vers le haut, en faisant du même coup 
disparaître la première ligne. Cela ne présentait d'ailleurs aucun inconvénient 
dans les programmes que nous avons présentés. 


Mais, comment, dans ces conditions, faire un dessin ? Mieux encore, comment 
faire se déplacer un objet sur l'écran (on dit aussi «animer » un mobile) ? Nous 
allons progressivement vous entraîner à cet aspect passionnant de la program- 
mation qui constitue la base des «jeux vidéo». 


La grille d’écran 


Commencez par entrer ce programme : a Vous demandent 2 valeurs 
précisant un emplacement 
— 


x Sur l'écran. 







né 


NEW 








HGINPUTXY . 
130 LOCATE XV =—— ne 


140 PRINT +"; 
150 FOR K = 1 TO 1000: NEXT K =— 





Pour vous laissez le temps 
d'observer avant que Ready 
n'apparaisse. 
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(?) Faites-vous la main 


* Donnez d'abord à la bordure une couleur différente du fond avec l'instruction BORDER. Exécutez 


plusieurs fois ce programme en répondant: 


e 55 e 12,22 
e 5,10 e 12,23 
e 5,15 e 12,24 
e 20,10 e 12,25 
e 20,15 e 30,22 
e 1,1 e 30,23 
e 22 e 30,24 


e 30,25 
e 40,23 
e 40,24 
e 40,25 


* Essayez d'autres valeurs de votre choix. Si, par malheur, vous «plantez» votre ordinateur, il se 


peut que vous soyez obligés de revenir à l'état initial. 


Vous voyez qu'avec deux valeurs, vous pouvez déterminer la position exacte 


où va s'afficher l'étoile. 


Comme vous l'avez probablement déjà constaté, votre écran peut afficher 25 
lignes. Elles sont numérotées de 1 à 25, en partant du haut. Chaque ligne com- 
porte 40 positions, numérotées de 1 à 40. Ainsi chaque emplacement de l'écran 


est repéré par deux valeurs qu'on appelle ses coordonnées : 


— un numéro de ligne, compris entre 1 et 25 
— un numéro dit «de colonne», compris entre 1 et 40 


numéro de colonne 


1 2 3 4 5 37 38 39 40 


numéro 
de ligne 
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Dansle programme précédent, X contenait un numéro de colonne et Y contenait 
un numéro de ligne. L'instruction 120 permet de placer le curseur d'écran à la 
position indiquée. Ce curseur (invisible pendant le déroulement d'un pro- 
gramme) indique à quel endroit commencera le prochain PRINT. 


Voilà donc pourquoi vous pouvez obtenir une étoile à un emplacement quelcon- 
que de l'écran. 


&)) Faites-vous la main 


* Remplacez la ligne 140 par: 
140 PRINT BONJOUR" 
et exécutez le programme en fournissant les mêmes réponses qu'en page 110. Essayez ensuite : 
e 35,10 
e 36, 10 
e 39, 10 


* 


Affichez d'autres caractères que l'étoile en remplaçant successivement la ligne 140 par: 
140 PRINT CHRS (224); 

140 PRINT CHRS (229); 

140 PRINT CHRS (238); 

140 PRINT CHRS (239); 

(N'oubliez pas que, par exemple, CHRS (224) signifie : le caractère ayant pour code 224). 


Mosaïque sur écran 


Voici un programme qui n'arrête pas d'afficher des ronds de couleur. À chaque 
fois, il choisit au hasard les coordonnées d'un emplacement et la couleur. 


___f Etage l'écran 


NEW à É Bord rose 
in ; Fire un nimero >. 
100 CLS (de colonne (1 à 40). 
110 BORDER 16 rs Tes 
120 X = 1 + INT (40 * RND (1) SES {Tire un numéro À 
\ de ligne (1 à 25) Î 

130 Ÿ = 4 + INT (25 + RND (t)}—— eo ee 
140 C = INT (4 + RND (1 — 

Lt U) PR — Fri un numéro 2. 
150 LOCATE X, Y « de «stylo» (0 à 3) ù 
160 PEN C au 
170 PRINT CHRS (231): 0 Affchent une balle: 


Re 


180 GOTO 120 FPS 
| nee 









A 














Comme de temps en temps, la couleur du rond est celle du fond, vous voyez 
certains ronds disparaître. 


Pour arrêter le programme, il suffit de presser deux fois la touche ESC. Notez 
bien qu'il se peut que le message Ready ne soit pas visible. Dans ce cas, il vous 
suffit de retrouver la plume initiale en tapant (à «l'aveuglette ») : 


PEN 1 


(à) Faites-vous la main 


* Affichez d'autres caractères qu'une balle, en agissant sur la ligne 170. Essayez, par exemple, à 
la place de 231, les valeurs suivantes : 
e 220 e 203 e 221 e 224 
e 230 e 206 e 207 e 248 


*x 


Au lieu de faire afficher toujours le même caractère, faites-le tirer au hasard. Pour cela, ajoutez: 
165 CA = 128 + INT (128 * RND (1) 

(qui tire un code compris entre 128 et 255) 

et modifiez ainsi la ligne 170: 

170 PRINT CHR$ (CA); 

Le résultat sera du meilleur effet. 


* 


Modifiez à votre gré les 4 couleurs de chacun des 4 «stylos» en ajoutant des instructions INK. Par 
exemple : 

112 INK 0,0 

114 INK 1,8 

116 INK 2,15 

118 INK 3,18 


En cas de problème, évitez de taper CTRL + SHIFT + ESC qui vous ferait perdre votre programme. 
Pour retrouver les couleurs initiales, il vous suffit de taper (en mode direct) : 

INK 0,1 

INK 1,24 

INK 2,20 

INK 3,6 


Pour en voir de (presque) toutes les couleurs 


Bien sûr, grâce à INK, vous choisissez vos couleurs. Mais vous ne disposez mal- 
gré tout que de 4 stylos. C'est pourquoi vous ne pouvez pas utiliser plus de qua- 
tre couleurs à la fois. 


Nous allons voir maintenant comment utiliser jusqu’à 16 stylos différents. 


Commencez par revenir à l'état initial et à entrer à nouveau le programme que 
nous avions rencontré en page 101: 
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NEW 
too CLS 
110 FOR] = O TO 15 
120 PEN 
130 PRINT “PLUME NUMERO"; | 
140 NEXT | 






Pour essayer les 16 plumes. 


On écrira le texte 
avec la plume numéro |. 


Si vous l'essayez tel quel, vous n'obtiendrez bien sûr que 4 couleurs différentes. 
Tapez alors: 


















L'écran s'efface. 


Les caractères sont 
deux fois plus larges. 


L notre poganme 
Re 
PP un AD CARE CE 


16 lignes: 16 couleurs °* 
différentes (ou presque). 


En fait, les deux 
dernières «clignotent». 


PLUME NUMERO 0O 
PLUME NUMERO 1 
PLUME NUMERO 2 









PLUME NUMERO 16 





Ne cherchez pas 
ce premier texte. 
Il est écrit 

en bleu 

sur fond bleu. 







Vous voyez que l'instruction MODE 0 vous permet d'obtenir 16 couleurs diffé- 
rentes. Par contre, vous ne pouvez plus afficher que 20 caractères par ligne. 
(On n'a rien sans rien!) 
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e) Faites-vous la main 
7" Ilexiste en tout trois «modes» sur votre Amstrad, numérotés 0, 1 et 2. Essayez chacun d'entre 
eux en faisant une liste de votre programme et en l'exécutant. 


Super-mosaique 


Adaptons notre programme de mosaïque pour qu'il fonctionne en mode 0. Pour 
entrer des instructions, il vaut mieux revenir en mode 1, soit en tapant MODE 
1, soit avec CTRL + SHIFT + ESC. 







NEW 
100 MODE 0 
to CLS 
120 BORDER 16 

130 X = + + INT (20 * AND (t) 
140 Y = 1 + INT (25 + AND (1) 
150 C = INT (14 * RND (1) 

160 LOCATE X. Y 

170 PEN C 

180 PRINT CHRS (231); 

190 GOTO 130 


Ne ire 
Numéro de colonne 


entre 1 et 20 cette fois. 













Mais numéro de ligne toujours 
compris entre 1 et 25. 


.. 14 plutôt que 16 pour éviter 
les couleurs qui clignotent. 































| Faites-vous la main 


si * Utilisez d'autres caractères en modifiant la valeur 231 de la ligne 180. 


* Faites tirer le caractère au hasard, en ajoutant: 
175 CA = 128 + INT (128 * RND (1) 
et en modifiant ainsi la ligne 180: 
180 PRINT CHRS (CA): 


XI. Animer 


Nous savons maintenant choisir l'endroit de l'écran où nous voulons afficher 
quelque chose. Nous pouvons aborder l'étape suivante : faire déplacer un objet 
sur l'écran. 


Aligner des balles 


Revenez d'abord, si nécessaire, à «l'état initial», puis essayez ce programme 
qui vous affiche une ligne de «ronds» (ressemblant à des balles). 


100 CLS Re ee 
110 BORDER 16 = 2 Oféita en eu car) 
DS EN CHER La 


120 PEN 2 choisit 
JESESIVÉ on choisit la igne 10) 


130 Ÿ = 10 = — Dee = Se - 


140 X = 1 =— on commence en colonne 1. 


LA A A 2 A 


150 LOCATE X, Y | C On afihe une bal) 


160 PRINT CHRS (231): te 
170X=X41 on passe à la colonne suivante. 


180 IF X < = 40 THEN GOTO 150 — 




















SRE 
n- 


Peut-être auriez-vous envie d'utiliser des instrutions FOR et NEXT pour faire 
varier X de 1 à 40. C’est tout à fait possible. Nous l'avons évité ici, car il nous 
sera ensuite plus facile de «généraliser» notre programme. 
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Mais, direz-vous! Tout cela n'est pas encore de l'animation. Patience... Nous 
y venons. Pour l'instant, diminuez un peu la «vitesse d'affichage» en ajoutant 
la ligne 165: 






165 FOR K = 1 TO 20: NEXTK 
LIST 
100 CLS 
110 BORDER 16 
120 PEN 2 
130 Y = 10 
140X=1 
150 LOCATE X, Y 
160 PRINT CHRS (231); 
165 FOR K = 1 TO 20: NEXT K 
170X=X+1 
180 IF X < = 40 THEN GOTO 150 



























Pour ralentir un peu! 






Vous voyez vos balles s'aligner progressivement devant vos yeux. 


>) Faites-vous la main 


* Modifiez à votre gré la position de la «ligne» où apparaissent les balles, en adaptant l'instruction 
130. 


* Modifiez à votre gré la longueur de la «ligne» en adaptant l'instruction 180. 
* Utilisez d'autres caractères que la balle pour former la ligne, en modifiant le code utilisé en 160. 


* Modifiez le rythme en adaptant l'instruction 165. 


Pour se déplacer horizontalement 


Le programme précédent se contente d'afficher le même symbole en différents 
emplacements. Mais, notre balle ne se déplace pas vraiment sur l'écran. 
Essayez alors d'ajouter ces deux instructions: 
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167 LOCATE X, Y 


168 PRINT CHRS (32): 
LIST 


100 CLS 

110 BORDER 16 

120 PEN 2 

130 Y = 10 

140X=1 

150 LOCATE X, Y 

160 PRINT CHR (231); 
165 FOR K = 1 TO 20: NEXT Ke 
167 LOCATE X, Y 








Pal er Me 58 0 

"32 est le code du caractère 
espace. Vous pourriez aussi 
écrire 168 PRINT ‘ ‘: 


es 


PE de 
1 Affichent la balle 


en colonne X, 
ligne Y. + 
” RASE ee 
Attend un instant. 
RIRE 


ne 











168 PRINT CHRS (32); 
170X=X+1 


180 IF X < = 40 THEN GOTO 150 


Affichent un espace à la place 
de la balle. 
ARE 


GR RES 


Vous voyez qu'après l'affichage de chaque caractère «balle», le programme 
attend un instant; il place à nouveau le curseur au même endroit, etil y affiche... 
un espace (code 32). Cet espace prend la place de la balle et ainsi l'efface. 


Finalement, ce programme vous donne «/'impression de déplacer» la balle. 
Voilà comment vous réaliserez de l'animation: vous ne déplacez pas vraiment 
un objet sur l'écran. Vous le faites simplement apparaître successivement (pen- 
dant un instant) en des positions suffisamment rapprochées pour donner l'illu- 


sion du mouvement. 


Faites-vous la main 


* Voyez l'effet du temps d'attente sur la «qualité» de l'animation. 
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Elle fait des bonds. 


Pour l'instant, notre balle se déplace de gauche à droite, d'une colonne à la fois. 
Modifiez alors ainsi les instructions 140 et 170: 


140X=1:DX=1 
170 X = X + DX 


LIST 
100 CLS 
110 BORDER 16 
DT 
120 PEN 2 Cuire xt) 
130 Ÿ = 10 
140 X = 1: DX = 1 
D an D 
150 LOCATE X, Y On introduit une nouvelle variable DX qui 
récise de «combien» place à ch 
160 PRINT CHRS (231): ii le «combien» on se déplace à chaque 
Dette eh D 
165 FOR K = 1 TO 20: NEXT K 
167 LOCATE X, YŸ 
168 PRINT CHRS (32): 
170 X = X + DX 2 


180 IF X < = 40 THEN GOTO 150 









FD 


(2) Faites-vous la main 
gi ÿ * Essayez ce programme en donnant d'autres valeurs à DX (en ligne 140), par exemple 2, 3... 
£5 


* Remplacez 140 par: 
140 X = 40: DX = - 1 
Voyez comme la balle se déplace de droite à gauche de l'écran. 
La façon dont le programme «s'arrête » est par contre peu satisfaisante. Tout ira mieux si vous modi- 
fiez ainsi la ligne 180: 
180 IF X > = 1 THEN GOTO 150 
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Pour rebondir sur les bords 


Vous savez maintenant déplacer la balle de gauche à droite ou de droite à gaur- 
che, grâce à l'instruction. 








Si DX > 0, on se déplace vers la droite. 


en mn Re 
Si DX < 0, on se déplace vers la qaue } 


Vous voyez que pour «rebondir», il suffit d'inverser le sens du déplacement. 
Ainsi, si DX vaut 1, il faudra lui donner la valeur — 1. S'il vaut — 1,1l faudra lui 
donner la valeur + 1. Il existe une instruction qui réalise cela, c'est: 


DX = - DX 






Quand faut-il exécuter cette instruction ? Lorsque la balle est au bord, c'est-à-dire 
quand X vaut 40 (bord droit) ou quand X vaut 1 (bord gauche). En Basic, nous 
pouvons faire cela ainsi. 


IF X = 40 THEN DX = - DX 
IFX = 1 THEN DX = - DX 


Sur votre Amstrad, vous pouvez condenser ces deux instructions en: 


IF X= 40 40 OR nel THEN DX = - DX 


depot æ 
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Modifions notre programme : 


175 IF X = 40 OR X = 1 THEN DX = - DX 
180 GOTO 150 

LIST 

100 CLS 

110 BORDER 16 

120 PEN 2 

130 Y = 10 

140X=1:DX=1 





150 LOCATE X, Y 

160 PRINT CHR (231); 

165 FOR K = 1 TO 20: NEXT K 
167 LOCATE X, Y 

168 PRINT CHRS (32): 

170 X = X + DX 


Lorsque l’on atteint l'un des 
175 IF X = 40 OR X = 1 THEN DX = - DX-—— 2 bords, on inverse le sens du 


180 GOTO 150 déplacement. 





Cette fois, si vous n'avez pas fait de fautes de frappe, vous voyez votre balle 
rebondir sur chaque bord. 


Faites-vous la main 


* «Sonorisez» votre programme en émettant un son à chaque rebond. Pour cela, modifiez ainsi la 
ligne 175: 


1751F X = 40 OR X = 1 THEN DX = - DX: SOUND 1,60,20 


* Voyez ce qui se passe si vous modifiez la valeur 60 de la ligne 175. Essayez, par exemple, 90 puis 
40. 


* Voyez ce qui se passe lorsque vous modifiez la valeur 20 de cette même ligne 175. Essayez, par 
exemple, 40, 80, 10 et 5. 
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* Essayez d'obtenir un déplacement vertical, avec rebonds, en modifiant ainsi les instructions sui- 


vantes : 
140X=15:DY=1 
170 Y = Y + DY 


175 IF Y = 25 OR Y = 1 THEN DY = - DY 


Pour déplacer en «oblique » 

Jusqu'ici, notre balle se déplaçait, soit horizontalement, par: 
X = X + DX 

soit verticalement par: 
Y=Y+DY 


Si nous jouons à la fois sur X et Y, nous obtiendrons un déplacement oblique. 
Pour rebondir, il nous suffit de remarquer que: 


— sur les bords verticaux, le rebond se fait par: 
DX = - DX 

— sur les bords horizontaux, il se fait par: 
DY = - DY 


Voici un programme qui vous permet de choisir la position initiale de la balle et 
qui la déplace sans cesse sur l'écran. 
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NEW 

100 PRINT “DONNEZ COORDONNEES INITIALES" 

110 INPUT X, Y 

120 CLS 

130 BORDER 16 

140 PEN 2 

150 DX = 1:DY = 1 

160 LOCATE X. Y 

170 PRINT CHRS (231); 

180 FOR K = 1 TO 20: NEXTK 

190 LOCATE X, Y 

200 PRINT CHRS (32) : 

210 X = X + DX:Y = YŸ + DY 

220 IF X = 40 OR X = 1 THEN DX = - DX: SOUND 1,60,10 
230 IF Y = 25 OR Y = 1 THEN DY = - DY: SOUND 1,90,10 
240 GOTO 160 




















Pour laisser une trace 


Et si vous souhaitez que la balle laisse une «trace » de son passage. Vous avez 
le choix entre plusieurs possibilités : 


e ne pas effacer la balle: | suffit de supprimer les lignes 190 et 200. 


e afficher un caractère autre que espace, en agissant sur la ligne 200. Par exem- 
ple, avec: 





vous obtiendrez une trace formée de points. 


e laisser comme trace une balle de couleur différente, par exemple bleue. Vous 
pensez alors probablement à remplacer la ligne 180 par ces trois instructions : 
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200 PEN 1 -— Couleur jaune. 


202 LOCATE X, Ÿ 


205 PRINT CHRS (231); =— 


Mais, si vous le faites, vous découvrirez que même la balle mobile est jaune, 
et non plus bleue. Ceci provient de ce que l'instruction 140 qui fixe la couleur 
bleue n'est exécutée qu’en début de programme. 











Les choses s’arrangent si vous supprimez cette ligne 140 et si vous ajoutez: 


165 PEN 2 


zy) Faites-vous la main 


* Essayez d'obtenir différents « motifs» sur votre écran à l'aide du programme précédent, modifié 
pour que la balle laisse une trace jaune. Pour cela, essayez différents emplacements de départ; 
modifiez également les limites en jouant sur les instructions 220 (remplacez 40 par d'autres valeurs) 
et 230 (remplacez 25 par d'autres valeurs). 


La balle folle 


Jusqu'ici, notre mobile rebondissait sur les bords de l'écran. Mais, dans certains 
Cas, nous pouvons avoir à limiter le déplacement sans pour autant faire un 
rebond. 


Voici un programme qui déplace au hasard une balle sur l'écran. À chaque fois, 
nous tirons au hasard une «direction de déplacement» en choisissant pour DX 
et DY une valeur parmi — 1, 0 ou 1. 


Si l'une des quantités : 


X + DX 
Y + DY 


sort des limites de l'écran, nous effectuons un autre tirage. 


Nous conservons une trace du déplacement de la balle, en affichant des points. 
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Efface l'écran. 


Bord rose. 


On écrira en bleu. 










NEW 
100 CLS «— 
110 BORDER 16 
120 PEN 24 — | . 
130 X = 20: YŸ = 104 

40 DX = — # + INT (3 * RND (te. 
150 IF X + DX > 40 OR X + DX < 1 THEN GOTO 140 
160 DV = = 1 + INT (3 * AND {te 
470 IF Y + DY > 25 OR Y + DY < 1 THEN GOTO 160 
180 X = X + DX:Y = V+ DV 
190 LOCATE X, Y ns 
200 PRINT CHRS (234): | F 

210 FOR K = 1 TO 20: NEXT K 
220 LOCATE X, 
230 PRINT “.": 
240 GOTO 140 — 





3 


















Position initiale. 









Tirage déplacement en X. 












Est-il possible ? 


i 













Tirage déplacement en Y. 


Est-il possible ? 


Déplacement. 























Affichage balle. 










= 





Trace de la balle. 


dl 


et on continue. 
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XIII. Pour maîtriser 
vos déplacements : 


Dans tous les programmes que nous avons réalisés jusqu'ici, le déplacement 
des mobiles était choisi par l'ordinateur. Souvent, vous aurez besoin de com- 
mander le déplacement d’un objet à l’aide du clavier. Ce sera le cas dans des 
jeux où vous devrez, par exemple, déplacer une base de tir, piloter une voiture, 
etc. 


Que faut-il savoir faire pour commander un déplacement depuis le clavier? Il 
est nécessaire de pouvoir : 


+ Déplacer un mobile sur l'écran. C'est ce que nous venons de voir dans le der- 
nier chapitre. 

+ Examiner le clavier pour savoir si une touche particulière a été enfoncée. Nous 
avons vu comment procéder dans le chapitre X. 


Nous disposons donc des outils de base. Encore faut-il les employer convena- 
blement. C'est ce que nous allons voir maintenant. 
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Un programme d’entraînement 


Essayez ce petit programme qui vous permet de commander le déplacement 
horizontal d'une balle. Nous conviendrons d'utiliser : 


e la touche marquée + pour le déplacement à gauche. Son code est 242. 
e la touche marquée + pour le déplacement à droite. Son code est 243. 


Position initiale. 















NEW 
100 X = 20: Y = 10 
HOCLS = 
120 LOCATE X, Y la 
130 PRINT CHRS (231); 

140 FOR 1 = 1 TO 20: NEXTI = 
150 LOCATE X, Y 

160 PRINT CHRS (32): 

170 R$ = INKEYS me - — 
180 IF R$ = CHRS (242) THEN X = X - 1 


190 IF R$ = CHRS$ (243) THEN X = X + 
200 GOTO 120 «— 













Efface la balle. 


Touche — on augmente X. 


Vous constaterez rapidement que cela se termine mal dès que vous laissez la 
balle aller sur les bords. Vous devez maintenant être habitués à cette situation 
et comprendre que cela provient de ce qu'aucune «protection» n'est prévue 
dans le programme. 

















Pour se protéger 
Il nous suffit d'empêcher la valeur de X de devenir inférieure à 1 ou supérieure 


à 40. Il existe plusieurs solutions. L'une d'entre elles consiste à modifier ainsi 
les lignes 170 et 180: 


180 IF R$ = CHRS (242) AND X > 1 THENX=X-1 








190 IF R$ = CHR$ (243) AND X < 40 THEN X = X +1 
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Pour faire un dessin 


Voici un programme qui vous permet de dessiner. Pour cela, vous commandez 
le déplacement d'un «pavé coloré» à l'aide des touches suivantes : 


° <— pour le déplacement vers la gauche (code 242) 
e — pour le déplacement vers la droite (code 243) 
e ? pour le déplacement vers le haut (code 240) 

e ! pour le déplacement vers le bas (code 241) 


NEW 


Valeurs initiales 
2 des coordonnées. 
100 CLS 
110 BORDER 16 Affichent un 
120 X = 20:Y = 12 pavé jaune. 


130 PEN 1 


140 LOCATE X Y 
150 PRINT CHRS (233). __Quene} 


160 FOR K = 4 TO 20 : NEXT Ka 





170 PEN 3 


180 LOCATE X, Y 
—_—— pavé rouge. 
190 PRINT CHRS (233): 

200 RS + KEY 

210 IF RS = CHRS (242) AND X > 1 THENX = X - ! es 

220 IF R$ = CHRS$ (243) AND X < 40 THEN X = X +1 le clavier. 

290 IF RS = CHRS (240) AND Y > 1 THEN Y = Y - 1 

240 IF RS = CHRS (241) AND Y < 25 THEN Y = V4 1 N 


250 GOTO 130 
les coordonnées. 
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XIV. Pour éviter 
les collisions 


Il vous arrivera souvent d'avoir besoin, dans un programme, de pouvoir connaî- 
tre ce qui figure en un emplacement de l'écran. Ce sera le cas dans certains 
jeux ; par exemple: 


— pour déplacer une voiture en vous assurant qu'elle ne va pas percuter un 
mur. 
— pour vérifier qu'un missile a atteint sa cible. 


Coordonnées « caractère » ou coordonnées graphiques ? 


En fait, le Basic de votre Amstrad ne vous permet pas de connaître directement 
le caractère affiché en un emplacement donné de l'écran. Par contre, il vous 
permet d'obtenir des indications sur sa couleur. 


Une seule difficulté ! Il vous faut employer les «coordonnées graphiques » qui 
sont différentes des «coordonnées d'écran». Pour cela, vous devez savoir que 
chaque emplacement caractère (du mode 1) est en fait subdivisé en 16 x 16 
points. Voyez ce dessin qui représente le coin inférieur gauche de l'écran: 
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Coordonnées 





graphiques 


numéro de colonné 


130 


Les coordonnées graphiques sont ainsi beaucoup plus précises que les coor- 
données d'écran. Certaines instructions travaillent avec les coordonnées 
d'écran; c'est le cas, par exemple, de LOCATE que nous avons déjà rencon- 
trée. D'autres instructions emploient les coordonnées graphiques. C'est le cas 
de TEST qui permet de connaître la couleur d'un point ; nous allons l'utiliser dans 
le jeu que nous vous proposons maintenant. 


Le serpent fou 


Il s'agit d'un serpent qui se déroule progressivement et sans arrêt sur l'écran. 
Vousle dirigez à volonté mais vous devez éviter qu'il ne recoupe sa propre trace 
ou qu'il ne heurte un bord de l'écran. 


Pour simplifier la programmation du déplacement, nous allons placer un 
«cadre » qui représentera le domaine dans lequel le serpent peut se déplacer. 
Le cadre et le serpent seront représentés par des pavés. Pour vérifier qu'un 
déplacement est possible, il nous suffira de nous assurer que le nouvel emplace- 
ment est disponible ; ce sera vrai si les points graphiques correspondants sont 
de la couleur du fond (bleu foncé, de code 0). (En fait, on examinera un seul 
de ces 256 points, bien choisi!) 


Pour encadrer 


Voyons déjà comment fabriquer le cadre. Il suffit pour cela de tracer un rectangle 
à l'aide de «pavés ». 


131 


NEW 


100 CLS 

110 XD = 2: XF = 39e Fixe les limites 
horizontales du cadre. 

120 YD = 2: YF = 24 

130 BORDER 16 


140 PEN 

Legs Le Fixe les limites 

150 FOR X = XD TO Nes verticales du cadre. 
Fe 


160 LOCATE X, YD E. 


170 PRINT CHRS (143): H 

180 LOCATE X, YF # Ces) 
190 PRINT CHRS (143); 

200 NEXT X 


TE CN 
210 FOR Ÿ = YD TO YF Er deux parties 
ER FA horizontales du cadre. 
220 LOCATE XD, Y | 


230 PRINT CHR (143); 
240 LOCATE XF, YŸ Sn 
ne Tracent les deux parties 


250 PRINT CHRS (143); verticales du cadre. 
260 NEXT Y 










z>) Faites-vous la main 


* Faites varier les dimensions du cadre en modifiant les valeurs de XD, XF, YD èt YF. Essayez, par 
#. exemple : 


110 XD = 5:XF = 25 
120 YD = 3: YF = 20 


Le jeu 


Ajoutez maintenant les instructions suivantes, sans effacer celles que vous venez 
d'entrer (ne faites surtout pas NEW). 
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Remarque : vous serez certainement amené à faire une liste. Vous allez décou- 
vrir alors que l'ensemble du programme ne tient plus sur l'écran. Seule la fin 
de la liste sera visible. Sachez que vous pouvez obtenir des «listes partielles ». 
Par exemple : 


LIST 200-300 
signifie : faire la liste des instructions 200 à 300. 


QTOT = 0e Position de départ 
e du serpent. 
280X=4:Y=4 — RER APT 


290 DX = 1:DY = 0 . $ Direction initiale du 
300 PENT = D Le dd (horizontal). 


310 LOCATE XV | | —(Ecèjane) 


320 PRINT CHRS (143): 
390 RS = INKEYS de 

























340 IF R$ = CHRS (243) THEN DX = 1: DY = 0 Pere 
; On examine le clavier 
350 IF R$ = CHRS (242) THEN DX = - 1: DY = 0 él on node ) 
360 IF R$ = CHRS (240) THEN DX = O:DY = -1 CR APAEMERE. 


370 IF R$ = CHRS (241) THEN DX = 0 : DY = 1 

Calcul de la nouvelle 
380 X = X + DX : YŸ = YŸ + DY — 
3907T=T+1 Ce 
400 FOR K = 1 TO 40: NEXT Ke 


410 XG = 16*{X - 1) + 1: YG = 16 * (25 - Ÿ) + 1 =— TT y 
d’un point du caractère 
420 IF TEST (XG, YG) = 0 THEN GOTO ETS de coordonnées X, Y. 
RER np ee 
430 LOCATE 2, 23 Li 
RER TPS La couleur de ce point 


440 PRINT “VOUS AVEZ TENU"': T; SECONDES" est-elle la couleur du fond 
bleu foncé : numéro 1). 
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£ J Faites-vous la main 


* Voyez comme la durée de la boucle d'attente (en 400) agit sur la difficulté du jeu. 


Pour corser le tout 


Vous pouvez fabriquer des obstacles, en tirant leur position au hasard. Cette fois, 
le serpent doit éviter, non seulement les bords et sa propre trace, mais aussi les 
obstacles. Ajoutez ceci: 









On va placer 
8 obstacles. 













261 FOR 1 = 1708 = 


262 X = 12 + INT (25 * RND (1) | 
263V = 3+INT(I8RND(I) | 
264 LOCATE X, Y \ 

I 


265 PRINT CHRS (143); | 
266 NEXT | 













Tirent la position 
d'un obstacle (on évite 
la partie gauche 
de l'écran). 














Affichent l'obstacle. 


Faites-vous la main 


* Vous pouvez utiliser d'autres caractères pour représenter les obstacles (et même le cadre ou le 
serpent). Toutefois, il vous faut savoir que la ligne 410 calcule les coordonnées graphiques d'un 
point particulier de l'emplacement de coordonnées écran X, Y ; il s'agit du point situé dans le coin 
inférieur gauche. Dans le cas d’un pavé, ce point (comme tous les autres) est effectivement coloré. 
Mais, avec d'autres caractères, ce ne sera pas toujours le cas. Pour vous en convaincre, remplacez 
le code 143 de la ligne 265 par: 


e 249 {les obstacles sont bien «détectés ») 
e 225 (les obstacles ne sont plus détectés) 
e 238 (ils sont détectés) 
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Correction 


des exercices 


Chapitre 1 


7. 


O OU PB © ND 


. Elle écrit: 28 
. PRINT 365 * 21 


E = 150 


. Elles écrivent: 25 
. Elles écrivent: 100 


. Elles écrivent: 


Vrai. 


Chapitre II 


1. 


2. 


La première instruction écrit immédiatement : 40. 


La seconde sera enregistrée sous le numéro 100. 


Il faut remplacer l'instruction 100 
a) par 100 N = 25 
b) par 100 N = 43 
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3. a) Non. Son exécution écrira : 324. 
b) L'instruction 110 ne sert à rien. 
c) ll suffit de taper: 
130 PRINT B * B 


B 
io 


Nous obtiendrons : 

16 

Syntax error in 120 

b) 1! faut la remplacer par: 

120 PRINTN*:N 

Cette fois, nous obtiendrons: 
16 

256 


5. La ligne 140 comporte une erreur. 
6. En frappant simultanément les touches CTRL, SHIFT et ESC. 
Chapitre III 


1. En utilisant l'une de ces deux instructions: 
PRINT A, B 
PRINT A; B 


2. 25 DIVIZE PAR 5 VOT 5 


3. a) 5 DIVISE PAR 4 = 1.25 
b) 5/4 = 1.25 
c) 213 = 1.25 


4. ll suffit de remplacer la ligne 130 par: 
PRINT "PRODUIT DE"; A; "PAR"; B; "="; C 


5. VOICI UN NOMBRE 25 
VOICI SON DOUBLE 75 


Chapitre IV 


1. Faux. 


2. Le point d'interrogation montre que Basic attend que vous lui fournissiez une 
où plusieurs valeurs. 


3. a) MERCI POUR 25 
b) ? Redo from start 
c) ? Redo from start 


) 
4. a) MERCI POUR 25 
b) MERCI POUR BONJOUR 
c) MERCI POUR LIST 
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5. BONJOUR MONSIEUR 





6. BONJOUR 
—£ Deux Îgres banches 3 
MONSIEUR 
7. Votre réponse à INPUT est incorrecte. Vous devez en proposer une autre. 


Chapitre V 


1. 


IF est un branchement conditionnel 
GOTO est un branchement inconditionnel 


2. Le premier affiche sans cesse: 
SALUT 
MON AMI 
Le second affiche une fois 
SALUT 
puis, il affiche sans cesse 
MON AMI 
3. 1=1+1 
4. KRRRHRÉR KRRRRÉR 
5. a) Dansl'instruction 150, il y a un «mélange » non autorisé de valeurs numéri- 


ques et chaînes. 
b) En ligne 200, on se réfère à une ligne qui n'existe pas. 


. a) En frappant sur la touche 


ESC 


b) en appuyant deux fois sur la touche 


ESC 
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Chapitre VI 


1. 


100 PRINT QUELLE TABLE‘: 


110 INPUT N 

120 FOR 1 = 1 TO 10 

130 PRINT I; "FOIS": N; "="; I: N 
140 NEXT I 


100 PRINT NOMBRE", CARRE" 
110 FOR 1 = 1 TO 20 

120 PRINT I 1x1 

130 NEXT I 


. 100 PRINT BONJOUR" 


110 FOR K = 1 TO 1000: NEXT K 
120 PRINT ‘UN INSTANT SVP‘ 

130 FOR K = 1 TO 5000: NEXT K 

140 PRINT CHRS (141) 

150 PRINT ‘JE M'APPELLE AMSTRAD": 


. En ligne 220, Basic a rencontré une instruction NEXT où figure un nom de 


variable qui ne correspond à aucun compteur mentionné dans une instruc- 
tion FOR. 


Imprimé en France. — JOUVE, 18, rue Saint-Denis, 75001 PARIS 
N° 14631. Dépôt légal : Août 1985 


Vous débutez en Basic et vous avez choisi un AMSTRAD 
pour vous initier. Ce livre est fait pour vous ! Quel que soit votre 
âge, il sera votre premier compagnon de route. 


Il ne suppose aucune connaissance préalable. De manière 
simple et progressive, il vous fera acquérir les bases nécessaires à 
cette activité passionnante qu'est la programmation. 


Grâce aux très nombreuses manipulations qu'il vous 
propose, il vous conduira à une bonne maîtrise de votre AMSTRAD 
et de ses particularités graphiques et sonores. Il vous ouvrira la voie 
de ‘l'animation. 

Très rapidement, vous serez ainsi en mesure de réaliser 


efficacement vos programmes personnels, y compris, si vous le 
souhaitez, des jeux vidéo. 
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